perm filename CNVR.LAP[RUT,LSP] blob
sn#343722 filedate 1978-03-22 generic text, type T, neo UTF8
(DEFV INTERNSTR T)
(DEFP *DELETE DELETE FSUBR)
(DEFP *ENTER ENTER SUBR)
(REMOB DELETE ENTER)
(DEFP VALUE EVAL LSUBR)
(LAP CDUMP FSUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL CEXPRS) S)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG11)
(MOVEI 1Q (QUOTE DATUM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CEXPR) S)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q 0Q P)
TAG11 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE CEXPR) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG13)
(PUSH P (SPECIAL OBLIST) S)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG20)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
TAG2 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG25)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE CEXPR) S)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG27)
(MOVE 2Q (SPECIAL CSYSFNS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMQ) S)
(JUMPN 1Q TAG27)
(MOVE 2Q (SPECIAL CEXPRS) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL CEXPRS) S)
TAG27 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG25 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG20 (SUB P (C 1Q 0Q 1Q 0Q))
TAG13 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE DATUM) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG33)
(PUSH P (SPECIAL OBLIST) S)
TAG3 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG40)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
TAG4 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG45)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE DATUM) S)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG47)
(MOVE 2Q (SPECIAL DATUM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL DATUM) S)
TAG47 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG4)
TAG45 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG40 (SUB P (C 1Q 0Q 1Q 0Q))
TAG33 (MOVEI 1Q (QUOTE (PRINT NIL)) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (MAPC (FUNCTION (LAMBDA (Y) (PRINT Y))) DATUM)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (PRINT (QUOTE (DATA)))) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DATUM) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CEXPRS) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE (NILL)) S)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(CALL 17Q (E DSKOUT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFV CSYSFNS
(UNREALIZE RUNDAEMONS TRY-NEXT TBLOCK GENERATE REALIZE ADIEU AU-REVOIR IN-CONTEXT ADD REMOVE LISTEN))
(LAP BOUNDP SUBR)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE VALUE) S)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 0Q (E UNBOUND) S)
(POP P 2Q)
(CAMN 1Q 2Q)
(JRST 0Q TAG5)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFV NEWFNS (NIL))
(LAP = SUBR)
(CAME 1Q 2Q)
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP > SUBR)
(JCALL 2Q (E *GREAT) S)
NIL
(LAP < SUBR)
(JCALL 2Q (E *LESS) S)
NIL
(LAP + SUBR)
(JCALL 2Q (E *PLUS) S)
NIL
(LAP MAKREADTABLE SUBR)
(MOVEI 2Q (QUOTE MAKREADTABLE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL NEWFNS) S)
(JCALL 2Q (E *NCONC) S)
NIL
(DEFV PRETTYPROPS (EXPR FEXPR MACRO (VALUE . PP-VALUE) CEXPR DATUM CINT CPRINT BACKTRACE))
(LAP PI-OFF FSUBR)
(MOVEI 1Q (QUOTE (X)) S)
(JCALL 17Q (E NILL) S)
NIL
(LAP PI-ON FSUBR)
(MOVEI 1Q (QUOTE (X)) S)
(JCALL 17Q (E NILL) S)
NIL
(LAP SSTATUS FSUBR)
(MOVEI 1Q (QUOTE (X)) S)
(JCALL 17Q (E NILL) S)
NIL
(LAP DELQ SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPN 2Q TAG2)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (JUMPE 3Q TAG3)
(HLRZ@ 1Q 2Q)
(CAME 1Q -2Q P)
(JRST 0Q TAG5)
(HRRZ@ 1Q 2Q)
(JRST 0Q TAG4)
TAG5 (HRRZ@ 2Q 2Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E DELQ) S)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
TAG4 (JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q 2Q)
(CAME 1Q -2Q P)
(JRST 0Q TAG7)
(MOVE 3Q 0Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E DELQ) S)
(JRST 0Q TAG1)
TAG7 (MOVE 1Q -2Q P)
(CALL 2Q (E DREMOVE) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DELETE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPN 2Q TAG2)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (JUMPE 3Q TAG3)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q -1Q P)
(JRST 0Q TAG4)
TAG5 (MOVE 3Q 0Q P)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E DELETE) S)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
TAG4 (JRST 0Q TAG1)
TAG3 (HLRZ@ 2Q 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG11)
(MOVE 3Q 0Q P)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E DELQ) S)
(JRST 0Q TAG10)
TAG11 (MOVE 3Q 0Q P)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E DELETE) S)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
TAG10
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(DEFV RUNF NIL)
(DEFV SERRLI NIL)
(DEFV ** **)
(DEFV GLOBALS ((NIL NIL) (T T)))
(DEFV *TOP *TOP)
(DEFV FREEVARS (VAL VARS UARGS BODY EARGS TEM TEM1 ALLOW))
(DEFV FRAMEVARS (CHALOBV FRAME* BVARS ALINK CLINK EXP CINTERRUPT READY))
(LAP RUN LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(JRST 0Q TAG1)
TAG2
TAG1 (MOVEM 1Q (SPECIAL VAL) S)
(MOVEI 1Q (QUOTE (RUN1)) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E *EVAL) S)
NIL
(LAP RUN1 SUBR)
(MOVE 1Q (SPECIAL RUNF) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE (CONNIVER ALREADY RUNNING)) S)
(CALL 17Q (E CERR) S)
TAG4 (MOVEI 2Q (QUOTE ARRAY) S)
(MOVEI 1Q (QUOTE CONNIVREAD) S)
(CALL 2Q (E GET) S)
(MOVEI 2Q (QUOTE 12Q))
(MOVEI 3Q (QUOTE 12Q))
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL BASE) S)
(0Q 3Q (SPECIAL IBASE) S)
(0Q 1Q (SPECIAL READTABLE) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL RUNF) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL RUNF) S)
(MOVE 1Q (SPECIAL SERRLI) S)
(MOVEM 1Q (SPECIAL ERRLIST) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (PUSH P (C 0Q 0Q TAG10 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
TAG2 (MOVE 1Q (SPECIAL CINTERRUPT) S)
(JUMPE 1Q TAG15)
(MOVE 1Q (SPECIAL ALLOW) S)
(JUMPE 1Q TAG15)
(CALL 0Q (E HANDLE) S)
(MOVEM 1Q (SPECIAL PC) S)
(JRST 0Q TAG14)
TAG15 (MOVE 1Q (SPECIAL PC) S)
(CALL 1Q (E CAP) S)
(MOVEM 1Q (SPECIAL PC) S)
TAG14 (JRST 0Q TAG2)
(JRST 0Q *ERRSET2)
TAG10 (MOVEM 1Q 0Q P)
(CAIE 1Q (QUOTE %%%STOP) S)
(JRST 0Q TAG21)
(MOVE 1Q (SPECIAL VAL) S)
(JRST 0Q TAG5)
TAG21 (JUMPN 1Q TAG22)
(MOVEI 1Q (QUOTE (GO (CEVAL EAR))) S)
(MOVEM 1Q (SPECIAL TEM1) S)
TAG22 (JRST 0Q TAG1)
TAG5 (PUSHJ P SPECSTR)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP CAP SUBR)
(MOVEI 2Q (QUOTE NIL))
(JCALL 2Q (E APPLY#) S)
NIL
(LAP HANDLE SUBR)
(HRRZ@ 1Q (SPECIAL CINTERRUPT) S)
(PUSH P (SPECIAL CINTERRUPT) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(POP P (SPECIAL CINTERRUPT) S)
(MOVEI 4Q (QUOTE *TOP) S)
(MOVE 3Q (SPECIAL FREEVARS) S)
(MOVE 2Q (SPECIAL PC) S)
(CALL 4Q (E DISPATCH) S)
(CLEARM 1Q (SPECIAL ALLOW) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP START SUBR)
(MOVE 1Q (SPECIAL RUNF) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE (CONNIVER ALREADY RUNNING)) S)
(CALL 17Q (E CERR) S)
TAG3 (MOVE 2Q (SPECIAL FREEVARS) S)
(MOVE 1Q (SPECIAL FRAMEVARS) S)
(CALL 2Q (E *APPEND) S)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG10)
(HLRZ@ 1Q 1Q)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E SET) S)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 1Q (QUOTE ICEVAL) S)
(MOVEM 1Q (SPECIAL PC) S)
(MOVEI 1Q (QUOTE (CEVAL (QUOTE (LISTEN (QUOTE TOP-LEVEL))))) S)
(MOVEM 1Q (SPECIAL EXP) S)
(MOVEI 1Q (QUOTE 0Q))
(MOVEM 1Q (SPECIAL LEVNUM) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL ALLOW) S)
(MOVEI 1Q (QUOTE (RUN1)) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E *EVAL) S)
NIL
(LAP STOP LSUBR)
(JSP 3Q *LCALL)
(MOVE 2Q (SPECIAL RUNF) S)
(PUSH P 1Q)
(JUMPE 2Q TAG1)
(TDZA 2Q 2Q)
TAG1 (MOVEI 2Q (QUOTE T) S)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE CONNIVER-NOT-RUNNING--STOP) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(CLEARM 1Q (SPECIAL VAL) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG4)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(MOVEM 1Q (SPECIAL VAL) S)
(JRST 0Q TAG2)
TAG4 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG2 (MOVEI 1Q (QUOTE POPJ) S)
(MOVEM 1Q (SPECIAL PC) S)
(MOVEI 1Q (QUOTE %%%STOP) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ERR) S)
NIL
(LAP *STOP SUBR)
(MOVEI 1Q (QUOTE U-LOSE) S)
(MOVEM 1Q (SPECIAL PC) S)
(MOVEI 1Q (QUOTE %%%STOP) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP U-LOSE SUBR)
(MOVEI 1Q (QUOTE (ATTEMPT TO RUN A CONNIVER PROCESS WITH AN UNDEFINED PC)) S)
(CALL 17Q (E CERR) S)
(MOVEI 1Q (QUOTE U-LOSE) S)
(POPJ P)
NIL
(LAP CERR FSUBR)
(PUSHJ P *AMAKE)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE **ERROR**) S)
(PUSH P 2Q)
(CALL 1Q (E PRINT) S)
TAG1 (MOVE 1Q -1Q P)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(MOVE 1Q 0Q P)
(JRST 0Q TAG10)
TAG11 (HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE /@) S)
(JRST 0Q TAG12)
(PUSH P (C 0Q 0Q TAG13 0Q))
(HRRZ@ 1Q -1Q P)
(PUSH P 1Q)
(PUSH P -3Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E EVAL) S)
TAG13 (JRST 0Q TAG10)
TAG12 (MOVE 1Q 0Q P)
TAG10 (CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q -2Q P)
(MOVEM 1Q -2Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG7 (MOVE 1Q (SPECIAL EXP) S)
(CALL 1Q (E CPRINT) S)
TAG2 (CALL 0Q (E TERPRI) S)
(MOVEI 1Q (QUOTE IN-LISP) S)
(CALL 1Q (E PRINT) S)
(CALL 0Q (E TERPRI) S)
(MOVEI 1Q (QUOTE ::) S)
(CALL 1Q (E PRINC) S)
(CALL 0Q (E READ) S)
(MOVEM 1Q (SPECIAL **) S)
(CAIN 1Q (QUOTE $P) S)
(JRST 0Q TAG16)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE RETURN) S)
(JRST 0Q TAG21)
(PUSH P (C 0Q 0Q TAG22 0Q))
(HRRZ@ 1Q (SPECIAL **) S)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E EVAL) S)
TAG22 (JRST 0Q TAG15)
TAG21 (PUSH P (C 0Q 0Q TAG24 0Q))
(PUSH P (SPECIAL **) S)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E EVAL) S)
TAG24 (CALL 1Q (E CPRINT) S)
(MOVEM 1Q (SPECIAL *) S)
(MOVE 1Q (SPECIAL **) S)
(MOVEM 1Q (SPECIAL ←) S)
(JRST 0Q TAG2)
TAG16 (MOVEI 1Q (QUOTE NIL))
TAG15 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP EAR SUBR)
(MOVE 2Q (SPECIAL CINTERRUPT) S)
(MOVEI 1Q (QUOTE (LISTEN (QUOTE IN-CONNIVER))) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL CINTERRUPT) S)
(MOVE 1Q (SPECIAL ERRLIST) S)
(MOVEM 1Q (SPECIAL SERRLI) S)
(MOVEI 1Q (QUOTE ((RUN1))) S)
(MOVEM 1Q (SPECIAL ERRLIST) S)
(MOVEI 1Q (QUOTE ERROX) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP TOP SUBR)
(MOVE 1Q (SPECIAL ERRLIST) S)
(MOVEM 1Q (SPECIAL SERRLI) S)
(MOVEI 1Q (QUOTE ((START))) S)
(MOVEM 1Q (SPECIAL ERRLIST) S)
(MOVEI 1Q (QUOTE ERRORX) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP CINTERRUPT SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL EXP) S)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE CINTERRUPT) S)
(CALL 2Q (E GET) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL EXP) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(JRST 0Q SPECSTR)
NIL
(LAP ALLOW FSUBR)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL ALLOW) S)
(POPJ P)
NIL
(LAP DISPATCH SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL EXP1) S)
(0Q 2Q (SPECIAL RETAG) S)
(0Q 3Q (SPECIAL SAVE) S)
(0Q 4Q (SPECIAL ALINK1) S)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG7)
(MOVE 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL VAL) S)
(MOVE 1Q (SPECIAL RETAG) S)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q (SPECIAL EXP1) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVE 2Q (SPECIAL ALINK1) S)
(MOVE 1Q (SPECIAL EXP1) S)
(CALL 2Q (E IVAL) S)
(MOVEM 1Q (SPECIAL VAL) S)
(MOVE 1Q (SPECIAL RETAG) S)
(JRST 0Q TAG6)
TAG10 (HLRZ@ 1Q (SPECIAL EXP1) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG16)
(MOVEI 2Q (QUOTE (CINT CEXPR FEXPR FSUBR)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E GETL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG20)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG14)
TAG20 (CALL 0Q (E SAVEUP) S)
(HRRZ@ 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(CLEARM 1Q (SPECIAL EARGS) S)
(MOVEI 1Q (QUOTE EVARGS) S)
(JRST 0Q TAG12)
(JRST 0Q TAG15)
TAG16 (HLRZ@ 1Q -1Q P)
(CAIE 1Q (QUOTE CLAMBDA) S)
(JRST 0Q TAG22)
(CALL 0Q (E SAVEUP) S)
(HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE ARGB) S)
(JRST 0Q TAG12)
TAG22 (CAIE 1Q (QUOTE LAMBDA) S)
(JRST 0Q TAG23)
(CALL 0Q (E SAVEUP) S)
(HRRZ@ 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(CLEARM 1Q (SPECIAL EARGS) S)
(MOVEI 1Q (QUOTE EVARGS) S)
(JRST 0Q TAG12)
TAG23 (CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG24)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG24 (MOVEI 1Q (QUOTE (UNKNOWN FUNCTION TYPE (/@ . EXP1))) S)
(CALL 17Q (E CERR) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG15
TAG2 (CALL 0Q (E SAVEUP) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG12)
TAG3 (CALL 0Q (E SAVEUP) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CAAR) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE ARGB) S)
(JRST 0Q TAG12)
TAG4
TAG5 (MOVE 1Q (SPECIAL ALINK1) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL *TOP) S)
(MOVE 1Q (SPECIAL EXP1) S)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q (SPECIAL VAL) S)
(PUSHJ P SPECSTR)
(MOVE 1Q (SPECIAL RETAG) S)
TAG12 (JRST 0Q TAG26)
TAG14 (CAIN 1Q (QUOTE FSUBR) S)
(JRST 0Q TAG5)
(CAIN 1Q (QUOTE FEXPR) S)
(JRST 0Q TAG4)
(CAIN 1Q (QUOTE CEXPR) S)
(JRST 0Q TAG3)
(CAIN 1Q (QUOTE CINT) S)
(JRST 0Q TAG2)
(CAIN 1Q (QUOTE BEGIN) S)
(JRST 0Q TAG1)
(PUSHJ P *UDT)
TAG26 (SUB P (C 2Q 0Q 2Q 0Q))
TAG6 (JRST 0Q SPECSTR)
NIL
(LAP SAVEUP SUBR)
(CALL 0Q (E SAVEV) S)
(MOVE 2Q (SPECIAL RETAG) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL FRAME*) S)
(JUMPN 2Q TAG2)
(CLEARM 2Q (SPECIAL CHALOBV) S)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVE 1Q (SPECIAL BVARS) S)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL CLINK) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL EXP) S)
(CALL 2Q (E CONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q (SPECIAL CHALOBV) S)
(JUMPE 2Q TAG3)
(CLEARM 2Q (SPECIAL CHALOBV) S)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVE 1Q (SPECIAL BVARS) S)
(CALL 2Q (E CONS) S)
(HRRZ@ 2Q (SPECIAL FRAME*) S)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 2Q (SPECIAL FRAME*) S)
TAG1 (POP P 1Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(MOVE 1Q (SPECIAL EXP1) S)
(MOVEM 1Q (SPECIAL EXP) S)
(MOVE 1Q (SPECIAL ALINK1) S)
(CAIE 1Q (QUOTE *TOP) S)
(JRST 0Q TAG6)
(MOVE 1Q (SPECIAL CLINK) S)
(JRST 0Q TAG5)
TAG6
TAG5 (MOVEM 1Q (SPECIAL ALINK) S)
(CLEARM 1Q (SPECIAL BVARS) S)
(CLEARB 1Q (SPECIAL FRAME*) S)
(POPJ P)
NIL
(LAP SAVEV SUBR)
(PUSH P (SPECIAL SAVE) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG7 0Q))
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VALUE) S)
TAG7 (POP P 2Q)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG11)
(MOVE 1Q -2Q P)
(HRRM@ 1Q -1Q P)
(HRRZ@ 1Q -1Q P)
(JRST 0Q TAG10)
TAG11 (MOVE 1Q -2Q P)
(MOVEM 1Q 0Q P)
TAG10 (MOVEM 1Q -1Q P)
(HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP POPJ SUBR)
(MOVE 1Q (SPECIAL CLINK) S)
(MOVEM 1Q (SPECIAL FRAME*) S)
(JUMPE 1Q TAG2)
(CALL 0Q (E RESTORE) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE *STOP) S)
TAG1 (POPJ P)
NIL
(LAP RESTORE SUBR)
(HRRZ@ 1Q (SPECIAL FRAME*) S)
(CALL 1Q (E CAAR) S)
(MOVEM 1Q (SPECIAL BVARS) S)
(HRRZ@ 1Q (SPECIAL FRAME*) S)
(CALL 1Q (E CDAR) S)
(MOVEM 1Q (SPECIAL ALINK) S)
(HRRZ@ 1Q (SPECIAL FRAME*) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL EXP) S)
(HRRZ@ 1Q (SPECIAL FRAME*) S)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(JCALL 0Q (E REST1) S)
NIL
(LAP REST1 SUBR)
(HLRZ@ 1Q (SPECIAL FRAME*) S)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 1Q)
(HRRZ@ 2Q 1Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E SET) S)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q (SPECIAL FRAME*) S)
(HRRZ@ 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP BIND1 SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL VAL) S)
(PUSH P 1Q)
(MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL BVARS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL BVARS) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL CHALOBV) S)
(JRST 0Q SPECSTR)
NIL
(LAP CLOSE SUBR)
(HLRZ@ 1Q (SPECIAL EXP) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG1)
(HLRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG2)
(HLRZ@ 1Q (SPECIAL EXP) S)
(CALL 1Q (E CADDR) S)
(MOVEM 1Q (SPECIAL ALINK) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL CHALOBV) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (POPJ P)
NIL
(LAP ARGB SUBR)
(MOVE 1Q (SPECIAL VARS) S)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPN 1Q TAG2)
(CALL 0Q (E CLOSE) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG4)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPE 1Q TAG4)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CAIE 1Q (QUOTE "OPTIONAL") S)
(JRST 0Q TAG12)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(CALL 0Q (E OPTMATCH) S)
(JRST 0Q TAG11)
TAG12 (CAIE 1Q (QUOTE "REST") S)
(JRST 0Q TAG13)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(CALL 0Q (E RESTMATCH) S)
(JRST 0Q TAG11)
TAG13 (MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (VARS UARGS)) S)
(MOVEI 2Q (QUOTE ARGB1) S)
(HLRZ@ 1Q (SPECIAL UARGS) S)
(CALL 4Q (E DISPATCH) S)
TAG11 (JRST 0Q TAG7)
TAG10 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG15)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(CALL 0Q (E ARGQ) S)
(JRST 0Q TAG7)
TAG15 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG7 (JRST 0Q TAG1)
TAG4 (MOVE 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG21)
(HLRZ@ 1Q 1Q)
(CAIN 1Q (QUOTE "OPTIONAL") S)
(JRST 0Q TAG24)
(CAIE 1Q (QUOTE "REST") S)
(JRST 0Q TAG21)
TAG24 (CALL 0Q (E CLOSE) S)
(CALL 0Q (E FINVAR) S)
(JRST 0Q TAG1)
TAG21 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP ARGB1 SUBR)
(MOVE 2Q (SPECIAL VAL) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE ARGB) S)
(POPJ P)
NIL
(LAP ARGQ SUBR)
(HLRZ@ 2Q (SPECIAL UARGS) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE ARGB) S)
(POPJ P)
NIL
(LAP OPTMATCH SUBR)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPN 1Q TAG2)
(CALL 0Q (E CLOSE) S)
(MOVE 1Q (SPECIAL VARS) S)
(JUMPN 1Q TAG4)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE FINVAR) S)
TAG3 (JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CAIE 1Q (QUOTE "OPTIONAL") S)
(JRST 0Q TAG10)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE OPTMATCH) S)
(JRST 0Q TAG7)
TAG10 (CAIE 1Q (QUOTE "REST") S)
(JRST 0Q TAG11)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE RESTMATCH) S)
(JRST 0Q TAG7)
TAG11 (MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (VARS UARGS)) S)
(MOVEI 2Q (QUOTE OPTMATCH1) S)
(HLRZ@ 1Q (SPECIAL UARGS) S)
(CALL 4Q (E DISPATCH) S)
TAG7 (JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG13)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(HLRZ@ 2Q (SPECIAL UARGS) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE OPTMATCH) S)
(JRST 0Q TAG14)
TAG15 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG14 (JRST 0Q TAG1)
TAG13 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG17)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (VARS UARGS)) S)
(MOVEI 2Q (QUOTE OPTMATCH1) S)
(HLRZ@ 1Q (SPECIAL UARGS) S)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG17 (HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CAAR) S)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG20)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADAR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG20)
(HLRZ@ 2Q (SPECIAL UARGS) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE OPTMATCH) S)
(JRST 0Q TAG1)
TAG20 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP OPTMATCH1 SUBR)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q (SPECIAL VARS) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
TAG1 (MOVE 2Q (SPECIAL VAL) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE OPTMATCH) S)
(POPJ P)
NIL
(LAP RESTMATCH SUBR)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(CLEARM 1Q (SPECIAL EARGS) S)
(CALL 0Q (E EVREST) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG3)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVE 2Q (SPECIAL UARGS) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E BIND1) S)
(CALL 0Q (E CLOSE) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP EVREST SUBR)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL EARGS) S)
(CALL 1Q (E REVERSE) S)
(MOVE 2Q 1Q)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 2Q (E BIND1) S)
(CALL 0Q (E CLOSE) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG2 (MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (VARS UARGS EARGS)) S)
(MOVEI 2Q (QUOTE EVREST1) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP EVREST1 SUBR)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVE 2Q (SPECIAL EARGS) S)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL EARGS) S)
(MOVEI 1Q (QUOTE EVREST) S)
(POPJ P)
NIL
(LAP FINVAR SUBR)
(MOVE 1Q (SPECIAL VARS) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CAIE 1Q (QUOTE "OPTIONAL") S)
(JRST 0Q TAG5)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE FINVAR) S)
(JRST 0Q TAG4)
TAG5 (CAIE 1Q (QUOTE "REST") S)
(JRST 0Q TAG6)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVEI 2Q (QUOTE NIL))
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 2Q (E BIND1) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG7)
TAG10 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG11)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(MOVEI 2Q (QUOTE NIL))
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E BIND1) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG7)
TAG11 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG7 (JRST 0Q TAG4)
TAG6 (MOVEI 2Q (QUOTE *UNASSIGNED) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE FINVAR) S)
TAG4 (JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG16)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG20)
(MOVEI 2Q (QUOTE *UNASSIGNED) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE FINVAR) S)
(JRST 0Q TAG17)
TAG20 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG17 (JRST 0Q TAG1)
TAG16 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG22)
(MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (VARS)) S)
(MOVEI 2Q (QUOTE FINVAR1) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG22 (HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CAAR) S)
(CAIE 1Q (QUOTE QUOTE) S)
(JRST 0Q TAG23)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADAR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG23)
(MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (VARS)) S)
(MOVEI 2Q (QUOTE FINVAR2) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG23 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP FINVAR1 SUBR)
(MOVE 2Q (SPECIAL VAL) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E BIND1) S)
(JCALL 0Q (E FINVAR3) S)
NIL
(LAP FINVAR2 SUBR)
(MOVE 2Q (SPECIAL VAL) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E BIND1) S)
(JCALL 0Q (E FINVAR3) S)
NIL
(LAP FINVAR3 SUBR)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE FINVAR) S)
(POPJ P)
NIL
(LAP AUXB SUBR)
(MOVE 2Q (SPECIAL BVARS) S)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL BODY) S)
(JUMPN 1Q TAG2)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE "AUX") S)
(JRST 0Q TAG3)
(HRRZ@ 1Q (SPECIAL BODY) S)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE AUXB1) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE LINE) S)
TAG1 (POPJ P)
NIL
(LAP AUXB1 SUBR)
(MOVE 1Q (SPECIAL VARS) S)
(JUMPN 1Q TAG2)
(MOVE 2Q (SPECIAL BVARS) S)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(CALL 1Q (E CADR) S)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q (SPECIAL BODY) S)
(MOVEI 1Q (QUOTE LINE) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE *UNASSIGNED) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE AUXB1) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG4)
(HLRZ@ 1Q (SPECIAL VARS) S)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG4)
(MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (VARS)) S)
(MOVEI 2Q (QUOTE AUXB2) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(CALL 1Q (E CADR) S)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE (BAD DECLARATION)) S)
(CALL 17Q (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP AUXB2 SUBR)
(MOVE 2Q (SPECIAL VAL) S)
(HLRZ@ 1Q (SPECIAL VARS) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E BIND1) S)
(HRRZ@ 1Q (SPECIAL VARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVEI 1Q (QUOTE AUXB1) S)
(POPJ P)
NIL
(LAP CPROG SUBR)
(HRRZ@ 2Q (SPECIAL EXP) S)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E BIND1) S)
(MOVEI 1Q (QUOTE AUXB) S)
(POPJ P)
NIL
(DEFPROP PROG CPROG CINT)
(DEFPROP PROG PROGB BACKTRACE)
(LAP PROGBIND SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE PROGB1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(DEFPROP PROGBIND PROGBIND CINT)
(DEFPROP PROGBIND PROGBINDB BACKTRACE)
(LAP PROGB1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(MOVEM 1Q (SPECIAL VARS) S)
(HRRZ@ 2Q (SPECIAL EXP) S)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE "AUX") S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E BIND1) S)
(MOVEI 1Q (QUOTE AUXB1) S)
(POPJ P)
NIL
(LAP LINE SUBR)
(MOVE 1Q (SPECIAL BODY) S)
(JUMPN 1Q TAG2)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (BODY)) S)
(MOVEI 2Q (QUOTE LINE1) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP LINE1 SUBR)
(HRRZ@ 1Q (SPECIAL BODY) S)
(MOVEM 1Q (SPECIAL BODY) S)
(MOVEI 1Q (QUOTE LINE) S)
(POPJ P)
NIL
(LAP EVARGS SUBR)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL ALINK) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL *TOP) S)
(MOVE 1Q (SPECIAL EARGS) S)
(CALL 1Q (E REVERSE) S)
(MOVE 2Q 1Q)
(HLRZ@ 1Q (SPECIAL EXP) S)
(CALL 2Q (E APPLY#) S)
(MOVEM 1Q (SPECIAL VAL) S)
(PUSHJ P SPECSTR)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (UARGS EARGS)) S)
(MOVEI 2Q (QUOTE ARGS1) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP ARGS1 SUBR)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVE 2Q (SPECIAL EARGS) S)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL EARGS) S)
(MOVEI 1Q (QUOTE EVARGS) S)
(POPJ P)
NIL
(LAP CCOND SUBR)
(HRRZ@ 1Q (SPECIAL EXP) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(JCALL 0Q (E CONDLP) S)
NIL
(LAP CONDLP SUBR)
(MOVE 1Q (SPECIAL UARGS) S)
(JUMPN 1Q TAG2)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (UARGS)) S)
(MOVEI 2Q (QUOTE COND1) S)
(CALL 1Q (E CAAR) S)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP COND1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(JUMPE 1Q TAG2)
(HLRZ@ 2Q (SPECIAL UARGS) S)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E BIND1) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q (SPECIAL UARGS) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE CONDLP) S)
TAG1 (POPJ P)
NIL
(DEFPROP COND CCOND CINT)
(DEFPROP COND CONDB BACKTRACE)
(LAP IAND SUBR)
(HRRZ@ 1Q (SPECIAL EXP) S)
(MOVEM 1Q (SPECIAL EXP) S)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL VAL) S)
(JUMPN 1Q TAG3)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL VAL) S)
TAG3 (CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (EXP)) S)
(MOVEI 2Q (QUOTE IAND1) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP IAND1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE IAND) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE POPJ) S)
TAG1 (POPJ P)
NIL
(DEFPROP AND IAND CINT)
(LAP IOR SUBR)
(HRRZ@ 1Q (SPECIAL EXP) S)
(MOVEM 1Q (SPECIAL EXP) S)
(JUMPN 1Q TAG2)
(CLEARM 1Q (SPECIAL VAL) S)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE (EXP)) S)
(MOVEI 2Q (QUOTE IOR1) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP IOR1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(JUMPE 1Q TAG2)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE IOR) S)
TAG1 (POPJ P)
NIL
(DEFPROP OR IOR CINT)
(LAP CGO SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE GO1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP GO1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(PUSH P (SPECIAL ALINK) S)
(MOVEI D (QUOTE (: FOO)) S)
(PUSH P D)
(HRRZ@ 1Q 0Q P)
(MOVE 2Q (SPECIAL VAL) S)
(HRLM@ 2Q 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -2Q P)
(JUMPN 1Q TAG10)
(MOVEI 1Q (QUOTE (TAG NOT FOUND)) S)
(CALL 17Q (E CERR) S)
(MOVEM 1Q (SPECIAL VAL) S)
(JRST 0Q TAG7)
TAG10 (HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG11)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMBER) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG13)
(MOVE 1Q -2Q P)
(MOVEM 1Q (SPECIAL FRAME*) S)
(CALL 0Q (E RESTORE) S)
(MOVE 1Q 0Q P)
(MOVEM 1Q (SPECIAL BODY) S)
(MOVEI 1Q (QUOTE LINE) S)
(JRST 0Q TAG4)
TAG13
TAG11
TAG7 (HRRZ@ 1Q -2Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG4 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q TAG2)
TAG3 (HLRZ@ 1Q (SPECIAL VAL) S)
(CAIE 1Q (QUOTE *TAG) S)
(JRST 0Q TAG14)
(HRRZ@ 1Q (SPECIAL VAL) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL FRAME*) S)
(CALL 0Q (E RESTORE) S)
(JRST 0Q TAG2)
TAG14 (MOVEI 1Q (QUOTE (BAD TAG)) S)
(CALL 17Q (E CERR) S)
(MOVEM 1Q (SPECIAL VAL) S)
(MOVEI 1Q (QUOTE GO1) S)
TAG2 (POPJ P)
NIL
(DEFPROP GO CGO CINT)
(LAP CEXIT SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE EXIT1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP EXIT1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(MOVEM 1Q (SPECIAL TEM) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG3)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (TEM)) S)
(MOVEI 2Q (QUOTE EXIT2) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG2)
TAG3 (PUSH P (SPECIAL ALINK) S)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG11)
(MOVEI 1Q (QUOTE (EXIT FROM WHAT?)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG10)
TAG11 (HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG12)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG5)
TAG12
TAG10 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (SUB P (C 1Q 0Q 1Q 0Q))
TAG2 (POPJ P)
NIL
(LAP EXIT2 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E FR) S)
(CALL 1Q (E CDDDR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(MOVE 1Q (SPECIAL TEM) S)
(MOVEM 1Q (SPECIAL VAL) S)
(JCALL 0Q (E POPJ) S)
NIL
(DEFPROP EXIT CEXIT CINT)
(LAP CRETURN SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE RETURN1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP RETURN1 SUBR)
(PUSH P (SPECIAL ALINK) S)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVEI 1Q (QUOTE (RETURN FROM WHAT?)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG5)
TAG6 (HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG7)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(HLRZ@ 1Q 1Q)
(CAIN 1Q (QUOTE COND) S)
(JRST 0Q TAG7)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG2)
TAG7
TAG5 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP RETURN CRETURN CINT)
(LAP CDISMISS SUBR)
(HRRZ@ 1Q (SPECIAL EXP) S)
(JUMPE 1Q TAG2)
(CLEARM 1Q (SPECIAL TEM) S)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (TEM)) S)
(MOVEI 2Q (QUOTE EXIT2) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG2 (CLEARM 1Q (SPECIAL VAL) S)
(CALL 0Q (E RETURN1) S)
TAG1 (POPJ P)
NIL
(DEFPROP DISMISS CDISMISS CINT)
(LAP CONTINUE SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE CONT1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(DEFPROP CONTINUE CONTINUE CINT)
(LAP CONT1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(MOVEM 1Q (SPECIAL TEM) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (TEM)) S)
(MOVEI 2Q (QUOTE CONT2) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG2 (CLEARM 1Q (SPECIAL VAL) S)
(MOVE 1Q (SPECIAL TEM) S)
(CALL 1Q (E FR) S)
(MOVEM 1Q (SPECIAL FRAME*) S)
(CALL 0Q (E RESTORE) S)
TAG1 (POPJ P)
NIL
(LAP CONT2 SUBR)
(MOVE 1Q (SPECIAL TEM) S)
(CALL 1Q (E FR) S)
(MOVEM 1Q (SPECIAL FRAME*) S)
(JCALL 0Q (E RESTORE) S)
NIL
(LAP ICEVAL SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE CEVAL1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP CEVAL1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(MOVEM 1Q (SPECIAL TEM1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (TEM1)) S)
(MOVEI 2Q (QUOTE CEVAL2) S)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG1)
TAG2 (CALL 0Q (E FRAME) S)
(MOVEM 1Q (SPECIAL VAL) S)
(MOVEI 1Q (QUOTE CEVAL2) S)
TAG1 (POPJ P)
NIL
(LAP CEVAL2 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(PUSH P (SPECIAL TEM1) S)
(CALL 1Q (E FR) S)
(MOVE 4Q 1Q)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE POPJ) S)
(POP P 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP CEVAL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE CEVAL) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -3Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E FR) S)
(MOVE 3Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVE 3Q (SPECIAL ALINK) S)
TAG1 (MOVEI 1Q (QUOTE ICEVAL) S)
(POP P 2Q)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL PC) S)
(0Q 2Q (SPECIAL EXP) S)
(0Q 3Q (SPECIAL ALINK) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CLINK) S)
(0Q 0Q (SPECIAL FRAME*) S)
(0Q 0Q (SPECIAL BVARS) S)
(0Q 0Q (SPECIAL CHALOBV) S)
(0Q 0Q (SPECIAL RUNF) S)
(CALL 0Q (E RUN1) S)
(PUSHJ P SPECSTR)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP CEVAL ICEVAL CINT)
(DEFPROP CEVAL CEVALB BACKTRACE)
(LAP ICALL SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE CALL1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP CALL1 SUBR)
(HRRZ@ 2Q (SPECIAL EXP) S)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 2Q (E CONS) S)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE POPJ) S)
(JCALL 4Q (E DISPATCH) S)
NIL
(DEFPROP CALL ICALL CINT)
(LAP INVOKE SUBR)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE TRY1) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E DISPATCH) S)
NIL
(DEFPROP INVOKE INVOKE CINT)
(LAP TRY1 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(MOVEM 1Q (SPECIAL TEM) S)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (TEM)) S)
(MOVEI 2Q (QUOTE TRY2) S)
(HRRZ@ 1Q (SPECIAL EXP) S)
(CALL 1Q (E CADR) S)
(JCALL 4Q (E DISPATCH) S)
NIL
(LAP TRY2 SUBR)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL TEM) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL EXP) S)
(CLEARM 1Q (SPECIAL FRAME*) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVE 1Q (SPECIAL TEM) S)
(CALL 1Q (E PATTERN) S)
(PUSH P 1Q)
(PUSH P (SPECIAL VAL) S)
(MOVEM 1Q -4Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MATCH) S)
TAG6 (MOVEM 1Q 0Q P)
(JUMPN 1Q TAG5)
(CALL 0Q (E POPJ) S)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CALLPAT) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *METHPAT) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CALLALIST) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL TEM) S)
(CALL 1Q (E TEXT) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *BODY) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E *NCONC) S)
(MOVEM 1Q (SPECIAL BVARS) S)
(CALL 0Q (E CLOSE) S)
(MOVEI 1Q (QUOTE AUXB) S)
(JRST 0Q TAG1)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP TEXT SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(CALL 1Q (E TEXT) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG3)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E TEXT) S)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADDR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FR SUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE *FRAME) S)
(JRST 0Q TAG2)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG2 (CAIE 1Q (QUOTE *TAG) S)
(JRST 0Q TAG3)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(JRST 0Q TAG1)
TAG3 (CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(JRST 0Q TAG1)
TAG4 (CAIE 1Q (QUOTE *AU-REVOIR) S)
(JRST 0Q TAG5)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE (BAD FRAME SUPPLIED)) S)
(CALL 17Q (E CERR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP VFRAME LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG6)
(MOVE 1Q (SPECIAL ALINK) S)
(JRST 0Q TAG5)
TAG6 (MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG7)
(MOVE 1Q -4Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E FR) S)
(JRST 0Q TAG5)
TAG7 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG5 (MOVEM 1Q 0Q P)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG3)
(MOVE 1Q -4Q P)
(HRRZ 1Q 1Q 1Q)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG12)
(MOVE 1Q 0Q P)
(CALL 1Q (E CHAUX) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *FRAME) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG2)
TAG12 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDAR) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP VLOC LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -4Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q (SPECIAL BVARS) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG10)
(JRST 0Q TAG2)
TAG10 (MOVE 1Q (SPECIAL ALINK) S)
(JRST 0Q TAG5)
TAG6 (MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG11)
(MOVE 1Q -4Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E FR) S)
(JRST 0Q TAG5)
TAG11 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG5 (MOVEM 1Q 0Q P)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG14)
(MOVE 1Q -4Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q (SPECIAL GLOBALS) S)
(CALL 2Q (E ASSOC) S)
(JRST 0Q TAG2)
TAG14 (MOVE 1Q -4Q P)
(HRRZ 1Q 1Q 1Q)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG15)
(JRST 0Q TAG2)
TAG15 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDAR) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP RVALUE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG3 (JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG4)
(PUSH P (C 0Q 0Q TAG5 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(HRRZ 1Q 2Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E VLOC) S)
TAG5 (JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG1 (MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(CALL 1Q (E CDDR) S)
(JUMPE 1Q TAG12)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE RVALUE) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E APPLY#) S)
TAG12 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG7)
TAG10 (MOVEI 1Q (QUOTE (UNBOUND VARIABLE (QUOTE (ARG 1Q)))) S)
(CALL 17Q (E CERR) S)
TAG7 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP IVAL SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL ID) S)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CAIE 2Q (QUOTE *TOP) S)
(JRST 0Q TAG7)
(MOVE 2Q (SPECIAL BVARS) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL ALINK) S)
(MOVEM 1Q -1Q P)
TAG7
TAG1 (MOVE 1Q -1Q P)
(JUMPN 1Q TAG13)
(MOVE 2Q (SPECIAL GLOBALS) S)
(MOVE 1Q (SPECIAL ID) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (UNBOUND VARIABLE (/@ . ID))) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG3)
(JRST 0Q TAG12)
TAG13 (HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL ID) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG2)
TAG12 (HRRZ@ 1Q -1Q P)
(CALL 1Q (E CDAR) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG17)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE /,) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E APPLY#) S)
TAG17 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG21)
(MOVEI 1Q (QUOTE (UNASSIGNED VARIABLE (/@ . ID))) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG3)
TAG21 (MOVE 1Q 0Q P)
TAG3 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ICSETQ SUBR)
(MOVE 1Q (SPECIAL EXP) S)
(MOVEM 1Q (SPECIAL UARGS) S)
(JCALL 0Q (E CSETQ0) S)
NIL
(LAP CSETQ0 SUBR)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG4)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG4)
(MOVE 4Q (SPECIAL ALINK) S)
(MOVEI 3Q (QUOTE (UARGS)) S)
(MOVEI 2Q (QUOTE CSETQ1) S)
(HRRZ@ 1Q (SPECIAL UARGS) S)
(CALL 1Q (E CADR) S)
(CALL 4Q (E DISPATCH) S)
(JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE (BAD CALL)) S)
(CALL 17Q (E CERR) S)
(CALL 0Q (E POPJ) S)
TAG3 (JRST 0Q TAG1)
TAG2 (CALL 0Q (E POPJ) S)
TAG1 (POPJ P)
NIL
(LAP CSETQ1 SUBR)
(PUSH P (C 0Q 0Q TAG1 0Q))
(HRRZ@ 1Q (SPECIAL UARGS) S)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG1 (PUSH P 1Q)
(JUMPE 1Q TAG3)
(CALL 1Q (E CDDR) S)
(JUMPE 1Q TAG5)
(MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CSET) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E APPLY#) S)
TAG5 (HRRZ@ 1Q 0Q P)
(MOVE 2Q (SPECIAL VAL) S)
(HRLM@ 2Q 1Q)
(JRST 0Q TAG2)
TAG3 (MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q (SPECIAL UARGS) S)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL GLOBALS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL GLOBALS) S)
TAG2 (HRRZ@ 1Q (SPECIAL UARGS) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL UARGS) S)
(MOVEI 1Q (QUOTE CSETQ0) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CSETQ FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP CSETQ ICSETQ CINT)
(LAP CSET LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 2Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG3 (JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE 3Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG4)
(PUSH P (C 0Q 0Q TAG5 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(HRRZ 1Q 3Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E VLOC) S)
TAG5 (JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG1 (MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(CALL 1Q (E CDDR) S)
(JUMPE 1Q TAG12)
(MOVE 1Q -2Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE CSET) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E APPLY#) S)
TAG12 (MOVE 1Q -2Q P)
(HRRZ 1Q 2Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(POP P 2Q)
(HRLM@ 2Q 1Q)
(JRST 0Q TAG7)
TAG10 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL GLOBALS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL GLOBALS) S)
TAG7 (MOVE 1Q -2Q P)
(HRRZ 1Q 2Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP UNASSIGN SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(PUSH P 1Q)
(MOVEI D (QUOTE *UNASSIGNED) S)
(PUSH P D)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CHAUX SUBR)
(PUSH P 1Q)
(JUMPE 1Q TAG1)
(CALL 1Q (E CDAR) S)
(CAIE 1Q (QUOTE AUXB1) S)
(JRST 0Q TAG2)
(MOVEI 1Q (QUOTE (ATTEMPT TO RETURN INCOMPLETE FRAME)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP TAG SUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL ALINK) S)
(MOVEI D (QUOTE (: FOO)) S)
(PUSH P D)
(HRRZ@ 1Q 0Q P)
(MOVE 2Q -2Q P)
(HRLM@ 2Q 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG3)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMBER) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(MOVE 1Q -2Q P)
(CALL 1Q (E CHAUX) S)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE BODY) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE LINE) S)
(CALL 2Q (E CONS) S)
(HRRZ@ 2Q -2Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *TAG) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG2)
TAG10
TAG6 (HRRZ@ 1Q -2Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP ACTBLOCK SUBR)
(PUSH P (SPECIAL ALINK) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -1Q P)
(JUMPE 1Q TAG3)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *BODY) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E CHAUX) S)
(HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE "AUX") S)
(JRST 0Q TAG10)
(HRRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
TAG10 (MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE BODY) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE LINE) S)
(CALL 2Q (E CONS) S)
(HRRZ@ 2Q -1Q P)
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *ACTBLOCK) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *TAG) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 1Q -1Q P)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ACCESS LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q (SPECIAL ALINK) S)
(CALL 1Q (E CDAR) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E FR) S)
(CALL 1Q (E CDADR) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG1 (CALL 1Q (E CHAUX) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *FRAME) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP CONTROL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q (SPECIAL ALINK) S)
(CALL 1Q (E CDDR) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E FR) S)
(CALL 1Q (E CDDDR) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG1 (CALL 1Q (E CHAUX) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *FRAME) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP CLOSURE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E <) S)
(JUMPN 1Q TAG3)
(MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG2)
TAG3 (MOVEI 1Q (QUOTE (WRONG # OF ARGS)) S)
(CALL 17Q (E CERR) S)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -3Q P)
(HRRZ 1Q 2Q 1Q)
(CALL 1Q (E FR) S)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q (SPECIAL ALINK) S)
TAG4 (CALL 1Q (E CHAUX) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *CLOSURE) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP FRAME SUBR)
(MOVE 1Q (SPECIAL ALINK) S)
(CALL 1Q (E CHAUX) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *FRAME) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP SETACCESS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E FR) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E FR) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(MOVEI 1Q (QUOTE BOOM!) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SETCONTROL SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E FR) S)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 1Q (E FR) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(MOVEI 1Q (QUOTE BOOM!) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP EXPRESSION SUBR)
(CALL 1Q (E FR) S)
(JCALL 1Q (E CADDR) S)
NIL
(LAP BACKTRACE LSUBR)
(JSP 3Q *LCALL)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL TEM) S)
(PUSH P 1Q)
(CALL 0Q (E FRAME) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE 777777Q) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q -6Q P)
(HRRZ 1Q 1Q 1Q)
(MOVEM 1Q -2Q P)
TAG5 (MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG11)
(MOVE 1Q -6Q P)
(HRRZ 1Q 2Q 1Q)
(MOVEM 1Q (SPECIAL TEM) S)
TAG11
TAG1 (HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(JUMPE 1Q TAG14)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG13)
TAG14 (MOVEI 1Q (QUOTE END-OF-BACKTRACE) S)
(JRST 0Q TAG2)
TAG13 (MOVE 1Q -3Q P)
(CALL 1Q (E EXPRESSION) S)
(MOVEM 1Q 0Q P)
(MOVEI 2Q (QUOTE BACKTRACE) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG16)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E APPLY#) S)
(JRST 0Q TAG15)
TAG16 (MOVE 1Q 0Q P)
(CALL 1Q (E CPRINT) S)
TAG15 (MOVE 1Q (SPECIAL TEM) S)
(JUMPE 1Q TAG21)
(HRRZ@ 1Q -3Q P)
(CALL 1Q (E CAAR) S)
(CALL 1Q (E CPRIN1) S)
TAG21 (PUSH P (C 0Q 0Q TAG22 0Q))
(PUSH P -4Q P)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CONTROL) S)
TAG22 (MOVEM 1Q -3Q P)
(MOVE 1Q -2Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP LISTENB SUBR)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE EAR) S)
(CALL 2Q (E IVAL) S)
(CALL 1Q (E PRINT) S)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE MESSAGE) S)
(CALL 2Q (E IVAL) S)
(CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E PRINC) S)
NIL
(DEFPROP LISTEN
((MESSAGE)
"AUX"
((EAR (GENLEV)))
(ALLOW T)
(CPRINT MESSAGE)
(PROGBIND (LIST (/, EAR) @LOOP)
(CSET EAR (TAG @EAR))
(CSETQ LOOP (TAG @LOOP))
(: EAR)
(PRINT EAR)
(: LOOP)
(SETQ ← **)
(TERPRI)
(/@ PRINT @//)
(SET @* (CEVAL (SETQ ** (READ))))
(/@ CPRINT *)
(GO LOOP)))
CEXPR)
(DEFPROP LISTEN LISTENB BACKTRACE)
(LAP CONDB SUBR)
(MOVEI 1Q (QUOTE COND) S)
(JCALL 1Q (E PRINT) S)
NIL
(LAP PROGB SUBR)
(MOVEI 1Q (QUOTE PROG) S)
(JCALL 1Q (E PRINT) S)
NIL
(LAP CEVALB SUBR)
(MOVE 1Q (SPECIAL TEM) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE CEVAL) S)
(CALL 1Q (E PRINT) S)
TAG2 (POPJ P)
NIL
(LAP UPDATEB SUBR)
(MOVEI 1Q (QUOTE NIL))
(POPJ P)
NIL
(DEFPROP UPDATE UPDATEB BACKTRACE)
(LAP SETB SUBR)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE ((QUOTE *) (QUOTE **))) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E MEMBER) S)
(JUMPN 1Q TAG1)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE SET) S)
(CALL 2Q (E CONS) S)
(CALL 1Q (E PRINT) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP SET SETB BACKTRACE)
(LAP PROGBINDB SUBR)
(MOVEI 1Q (QUOTE PROGBIND) S)
(JCALL 1Q (E PRINT) S)
NIL
(LAP CDEFUN FSUBR)
(MOVEI 3Q (QUOTE CEXPR) S)
(HRRZ@ 2Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 3Q (E PUTPROP) S)
(HLRZ@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFP CDE CDEFUN FSUBR)
(LAP GENLEV SUBR)
(MOVE 1Q (SPECIAL LEVNUM) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL LEVNUM) S)
(CALL 1Q (E EXPLODE) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE (E A R -)) S)
(CALL 2Q (E *APPEND) S)
(JCALL 1Q (E READLIST) S)
NIL
(LAP : FSUBR)
(POPJ P)
NIL
(DEFPROP : CP-MACR CPRINT)
(LAP /@ FSUBR)
(JCALL 1Q (E *EVAL) S)
NIL
(DEFPROP /@ CP-!/" CPRINT)
(DEFPROP ! CP-MACR CPRINT)
(LAP /, FSUBR)
(MOVE 2Q (SPECIAL *TOP) S)
(HLRZ@ 1Q 1Q)
(JCALL 2Q (E IVAL) S)
NIL
(DEFPROP /, CP-MACR CPRINT)
(LAP CPRIN1 SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E PRIN1) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPN 1Q TAG7)
(MOVEI 2Q (QUOTE CPRINT) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E APPLY#) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG7 (MOVE 1Q -1Q P)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE /() S)
(CALL 1Q (E PRINC) S)
TAG1 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E CPRIN1) S)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG15)
(MOVEI 1Q (QUOTE /)) S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG15 (CALL 1Q (E PATOM) S)
(JUMPE 1Q TAG16)
(MOVEI 1Q (QUOTE / /./ ) S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E PRIN1) S)
(MOVEI 1Q (QUOTE /)) S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG16 (MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP CPRINT SUBR)
(PUSH P 1Q)
(CALL 0Q (E TERPRI) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP CP-MACR FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E PRIN1) S)
NIL
(LAP CP-QUOTE FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE ') S)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E CPRIN1) S)
NIL
(DEFPROP QUOTE CP-QUOTE CPRINT)
(LAP CP-*TAG FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE /() S)
(CALL 1Q (E PRINC) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E PRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE /)) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E PRINC) S)
NIL
(DEFPROP *TAG CP-*TAG CPRINT)
(DEFPROP *CLOSURE CP-*TAG CPRINT)
(LAP CP-*FRAME FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE /() S)
(CALL 1Q (E PRINC) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E PRIN1) S)
(MOVEI 1Q (QUOTE / ) S)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E CPRIN1) S)
(MOVEI 1Q (QUOTE /)) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E PRINC) S)
NIL
(DEFPROP *FRAME CP-*FRAME CPRINT)
(DEFPROP *AU-REVOIR CP-*FRAME CPRINT)
(LAP CP-MATCH FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CPRIN1) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JUMPE 1Q TAG3)
(CALL 1Q (E CPRIN1) S)
TAG3
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP !' CP-MATCH CPRINT)
(DEFPROP !@ CP-MATCH CPRINT)
(LAP CP-!/" FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E PRINC) S)
(HRRZ@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E CPRIN1) S)
NIL
(LAP COLMAC SUBR)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE :) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP COMMAC SUBR)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE /,) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP ATMAC SUBR)
(CALL 0Q (E READ) S)
(MOVEI 2Q (QUOTE /@) S)
(JCALL 2Q (E XCONS) S)
NIL
(LAP EXMAC SUBR)
(CALL 0Q (E NXTCHR) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CAIE 1Q (QUOTE $) S)
(JRST 0Q TAG5)
(CALL 0Q (E TYI) S)
(MOVEI 2Q (QUOTE ARRAY) S)
(MOVEI 1Q (QUOTE CONNIVER) S)
(CALL 2Q (E GET) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL OBARRAY) S)
(CALL 0Q (E READ) S)
(PUSHJ P SPECSTR)
(JRST 0Q TAG1)
TAG5 (MOVEI 2Q (QUOTE ((/" !/") (/@ !@))) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(CALL 0Q (E TYI) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 0Q (E READ) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG6 (MOVEI 2Q (QUOTE ((? !?) (' !') (> !>) (/, !/,) (< !<) (; !;))) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG7)
(CALL 0Q (E TYI) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG4)
TAG7 (MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE MACRO) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE !) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE BAD) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E PRINT) S)
(MOVEI 1Q (QUOTE ERRORX) S)
(CALL 1Q (E ERR) S)
TAG4 (CALL 0Q (E NXTCHR) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E CHRVAL) S)
(CALL 1Q (E DELIM) S)
(JUMPE 1Q TAG12)
(MOVEI 2Q (QUOTE (/( /[)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG12)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG11)
TAG12 (CALL 0Q (E READ) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG11)
TAG15 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
TAG11
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP NXTCHR SUBR)
(CALL 0Q (E PEEKC) S)
(CALL 1Q (E ASCII) S)
(JCALL 1Q (E INTERN) S)
NIL
(DEFLIST (FRAMES RFRAMES) T CALL)
(SETQ *INDEXTHRESHOLD 12Q)
(LAP OBJECT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG2 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(JRST 0Q TAG1)
TAG3 (CALL 0Q (E TMA) S)
TAG1 (CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *OBJECT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP TMA SUBR)
(MOVEI 1Q (QUOTE (TOO MANY ARGUMENTS)) S)
(JCALL 17Q (E CERR) S)
NIL
(LAP TFA SUBR)
(MOVEI 1Q (QUOTE (TOO FEW ARGUMENTS)) S)
(JCALL 17Q (E CERR) S)
NIL
(LAP MAKE-METHOD SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q 2Q)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG7)
(CALL 1Q (E CMARKERS) S)
(HRRZ@ 1Q 1Q)
TAG7 (MOVEM 1Q -2Q P)
(HRRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q -3Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E *NCONC) S)
(MOVEI 3Q (QUOTE DATUM) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUTPROP) S)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (HRRZ@ 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E XCONS) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG1 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP IF-NEEDED FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-NEEDED) S)
(JCALL 2Q (E MAKE-METHOD) S)
NIL
(LAP IF-ADDED FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-ADDED) S)
(JCALL 2Q (E MAKE-METHOD) S)
NIL
(LAP IF-REMOVED FSUBR)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-REMOVED) S)
(JCALL 2Q (E MAKE-METHOD) S)
NIL
(LAP DATA-INIT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E >) S)
(JUMPE 1Q TAG4)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE 144Q))
TAG3 (PUSH P 1Q)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG7)
(MOVE 2Q -3Q P)
(HRRZ 2Q 2Q 2Q)
(JRST 0Q TAG6)
TAG7 (MOVEI 2Q (QUOTE 12Q))
TAG6 (MOVEM 2Q -1Q P)
(MOVEI 1Q (QUOTE NUMACT) S)
(CALL 1Q (E BOUNDP) S)
(JUMPE 1Q TAG12)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
TAG1 (MOVE 2Q (SPECIAL NUMACT) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG17)
(JRST 0Q TAG13)
TAG17 (MOVE 1Q 0Q P)
(CALL 1Q (E FRAMES) S)
(CALL 1Q (E NUMVAL) S)
(CALL 1Q (E CDDR) S)
(PUSH P 1Q)
TAG2 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG24)
(JRST 0Q TAG20)
TAG24 (HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG26)
(MOVE 1Q 0Q P)
(CALL 1Q (E CMARKERS) S)
(HLLZS@ 0Q 1Q)
TAG26 (SUB P (C 1Q 0Q 1Q 0Q))
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG20 (SUB P (C 1Q 0Q 1Q 0Q))
(MOVE 1Q 0Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG13 (SUB P (C 1Q 0Q 1Q 0Q))
TAG12 (POP P (SPECIAL NUMCON) S)
(POP P (SPECIAL INCCON) S)
(MOVEI 1Q (QUOTE (FRAMES 22Q NUMCON)) S)
(CALL 17Q (E ARRAY) S)
(MOVEI 1Q (QUOTE (RFRAMES T NUMCON)) S)
(CALL 17Q (E ARRAY) S)
(MOVEI 1Q (QUOTE 0Q))
(MOVEM 1Q (SPECIAL *CNUM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CFRAME) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE FIXNUM) S)
(CALL 2Q (E MAKNUM) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E FRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E FRAMES) S)
(CALL 1Q (E NUMVAL) S)
(HRRZ@ 2Q 1Q)
(MOVEI 1Q (QUOTE 0Q))
(PUSH P 2Q)
(CALL 1Q (E RFRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(MOVEI 1Q (QUOTE (CONTEXT (CSETQ GLOBAL (LIST (QUOTE *CONTEXT) (NUMVAL (FRAMES 0Q)))))) S)
(CALL 17Q (E CSETQ) S)
(MOVEI 1Q (QUOTE 1Q))
(MOVEM 1Q (SPECIAL NUMACT) S)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (PATTERN THING)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *LIST) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL *ITEMS) S)
(MOVEI 3Q (QUOTE *INDEX) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE ITEM) S)
(CALL 3Q (E PUTPROP) S)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (PATTERN THING)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *LIST) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL *IF-NEEDEDS) S)
(MOVEI 3Q (QUOTE *INDEX) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-NEEDED) S)
(CALL 3Q (E PUTPROP) S)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (PATTERN THING)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *LIST) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL *IF-ADDEDS) S)
(MOVEI 3Q (QUOTE *INDEX) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-ADDED) S)
(CALL 3Q (E PUTPROP) S)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (PATTERN THING)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *LIST) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL *IF-REMOVEDS) S)
(MOVEI 3Q (QUOTE *INDEX) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE IF-REMOVED) S)
(JCALL 3Q (E PUTPROP) S)
NIL
(LAP FETCH LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG4)
(MOVE 1Q -2Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
TAG4 (MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *POSSIBILITIES) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E FETCHI1) S)
(MOVE 3Q -1Q P)
(MOVE 2Q (SPECIAL *IF-NEEDEDS) S)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E FETCHM1) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
(MOVEI 2Q (QUOTE *IGNORE) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP FETCHI LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *POSSIBILITIES) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -2Q P)
(ADD 2Q -4Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (POP P 1Q)
(CALL 2Q (E FETCHI1) S)
(MOVEI 2Q (QUOTE *IGNORE) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP FETCHM LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 3Q))
(CALL 2Q (E >) S)
(JUMPE 1Q TAG2)
(CALL 0Q (E TMA) S)
TAG2 (MOVEI 2Q (QUOTE 3Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E <) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE (CONTEXT)) S)
(CALL 17Q (E /,) S)
(JRST 0Q TAG3)
TAG4 (MOVE 1Q -2Q P)
(HRRZ 1Q 3Q 1Q)
TAG3 (PUSH P 1Q)
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *POSSIBILITIES) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -3Q P)
(CALL 2Q (E <) S)
(JUMPE 1Q TAG6)
(MOVE 2Q (SPECIAL *IF-NEEDEDS) S)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q -5Q P)
(HRRZ 1Q 2Q 1Q)
(MOVEI 2Q (QUOTE *INDEX) S)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
TAG5 (MOVE 3Q -2Q P)
(POP P 1Q)
(CALL 3Q (E FETCHM1) S)
(MOVEI 2Q (QUOTE *IGNORE) S)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP FETCHI1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HRRZ@ 4Q 2Q)
(MOVEI 3Q (QUOTE T) S)
(EXCH 2Q 1Q)
(MOVE 1Q (SPECIAL *ITEMS) S)
(CALL 4Q (E SEARCH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -4Q P)
(JUMPE 1Q TAG11)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG16 0Q))
(PUSH P -10Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MATCH) S)
TAG16 (MOVEM 1Q -4Q P)
(JUMPE 1Q TAG15)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *ITEM) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
TAG15 (MOVEM 1Q -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JUMPE 1Q TAG13)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG20)
(MOVE 1Q -2Q P)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
(JRST 0Q TAG17)
TAG20 (MOVE 1Q -2Q P)
(MOVEM 1Q 0Q P)
TAG17 (CALL 1Q (E LAST) S)
(MOVEM 1Q -1Q P)
TAG13 (HRRZ@ 1Q -4Q P)
(MOVEM 1Q -4Q P)
(JRST 0Q TAG1)
TAG11 (MOVE 1Q 0Q P)
(SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP FETCHM1 SUBR)
(HRRZ@ 4Q 3Q)
(MOVEI 3Q (QUOTE NIL))
(PUSH P 2Q)
(MOVE 2Q 1Q)
(EXCH 1Q 0Q P)
(CALL 4Q (E SEARCH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG11 0Q))
(CALL 1Q (E PATTERN) S)
(PUSH P 1Q)
(PUSH P -7Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MATCH) S)
TAG11 (PUSH P 1Q)
(JUMPE 1Q TAG13)
(MOVE 1Q -6Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *NCONC) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *METHOD) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
TAG13 (MOVEM 1Q -4Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JUMPE 1Q TAG10)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG15)
(MOVE 1Q -2Q P)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
(JRST 0Q TAG14)
TAG15 (MOVE 1Q -2Q P)
(MOVEM 1Q 0Q P)
TAG14 (CALL 1Q (E LAST) S)
(MOVEM 1Q -1Q P)
TAG10 (HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP REAL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG3)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG3 (POP P 1Q)
(CALL 2Q (E REALITY) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP UNREAL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG3)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG3 (POP P 1Q)
(CALL 2Q (E REALITY) S)
(JUMPN 1Q TAG2)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PRESENT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q -4Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG6)
(MOVE 1Q -4Q P)
(ADD 1Q -6Q P)
(HRRZ 1Q -577777Q 1Q)
TAG6 (HRRZ@ 4Q 1Q)
(MOVEI 3Q (QUOTE T) S)
(MOVE 2Q -3Q P)
(MOVEM 1Q 0Q P)
(MOVE 1Q (SPECIAL *ITEMS) S)
(CALL 4Q (E SEARCH) S)
(MOVEM 1Q -1Q P)
TAG1 (MOVE 1Q -1Q P)
(JUMPE 1Q TAG4)
(PUSH P (C 0Q 0Q TAG11 0Q))
(PUSH P -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ITEM) S)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MATCH) S)
TAG11 (MOVEM 1Q -2Q P)
(JUMPE 1Q TAG10)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
TAG2 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG16)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG17 0Q))
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG17 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG16 (HLRZ@ 1Q -2Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG10 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP ABSENT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E DATUM) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG2)
(MOVE 1Q -2Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
TAG2 (PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E UNREAL) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SEARCH SUBR)
(PUSH P 4Q)
(CALL 3Q (E ISEARCH) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 1Q (E CMARKERS) S)
(MOVE 2Q -5Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E REALITY1) S)
(JUMPE 1Q TAG12)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
TAG12 (MOVEM 1Q -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JUMPE 1Q TAG10)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG14)
(MOVE 1Q -2Q P)
(HRRM@ 1Q -1Q P)
(MOVE 1Q -1Q P)
(JRST 0Q TAG13)
TAG14 (MOVE 1Q -2Q P)
(MOVEM 1Q 0Q P)
TAG13 (CALL 1Q (E LAST) S)
(MOVEM 1Q -1Q P)
TAG10 (HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP REALITY SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(PUSH P 2Q)
(CALL 1Q (E CMARKERS) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(CALL 2Q (E REALITY1) S)
(JRST 0Q SPECSTR)
NIL
(LAP REALITY1 SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL CMARKERS) S)
(0Q 2Q (SPECIAL CFRAMES) S)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(MOVE 2Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E INVISIBLE) S)
(JUMPN 1Q TAG7)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG7 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG1)
TAG6 (JRST 0Q TAG3)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DATUM SUBR)
(PUSH P 1Q)
(MOVEI 3Q (QUOTE T) S)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL *ITEMS) S)
(CALL 3Q (E ISEARCH) S)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q 1Q)
(CALL 1Q (E ITEM) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG2)
TAG7 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ADD LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E DATUMIZE) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG2)
(MOVE 1Q -2Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
TAG2 (PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E REALIZE) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP ADD
((THING "OPTIONAL" (CONTEXT CONTEXT)) (REALIZE (/@ DATUMIZE (/, THING)) CONTEXT))
CEXPR)
(LAP CREMOVE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVE 1Q -3Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E DATUMIZE) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG2)
(MOVE 1Q -2Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
TAG2 (PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E UNREALIZE) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP REMOVE
((THING "OPTIONAL" (CONTEXT CONTEXT)) (UNREALIZE (/@ DATUMIZE (/, THING)) CONTEXT))
CEXPR)
(LAP INSERT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E DATUMIZE) S)
(PUSH P 1Q)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -2Q P)
(ADD 2Q -4Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (MOVE 1Q -1Q P)
(CALL 2Q (E REVEAL) S)
(POP P 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP KILL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E DATUMIZE) S)
(PUSH P 1Q)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -2Q P)
(ADD 2Q -4Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (MOVE 1Q -1Q P)
(CALL 2Q (E HIDE) S)
(POP P 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ACTUALIZE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (POP P 1Q)
(CALL 2Q (E REVEAL) S)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP UNACTUALIZE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (POP P 1Q)
(CALL 2Q (E HIDE) S)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP REALIZE LSUBR)
(JSP 3Q *LCALL)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CON) S)
(0Q 0Q (SPECIAL PAT) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG4)
(MOVE 1Q -1Q P)
(ADD 1Q -3Q P)
(HRRZ 1Q -577777Q 1Q)
TAG4 (MOVEM 1Q (SPECIAL CON) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E REVEAL) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(CALL 1Q (E ITEM) S)
(MOVEM 1Q (SPECIAL PAT) S)
(JUMPE 1Q TAG6)
(PUSH P (C 0Q 0Q TAG11 0Q))
(MOVEI D (QUOTE (CALLDEMONS (/@ . PAT) (/@ . *IF-ADDEDS) (/@ . CON))) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CEVAL) S)
TAG11
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP REALIZE
((DATUM "OPTIONAL" (CONTEXT CONTEXT))
"AUX"
(PAT)
(COND [(/@ AND (REVEAL (/, DATUM) (/, CONTEXT)) (CSETQ PAT (ITEM (/, DATUM))))
(CALLDEMONS PAT (/@ . *IF-ADDEDS) CONTEXT)])
DATUM)
CEXPR)
(LAP UNREALIZE LSUBR)
(JSP 3Q *LCALL)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CON) S)
(0Q 0Q (SPECIAL PAT) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 1Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG4)
(MOVE 1Q -1Q P)
(ADD 1Q -3Q P)
(HRRZ 1Q -577777Q 1Q)
TAG4 (MOVEM 1Q (SPECIAL CON) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E HIDE) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(CALL 1Q (E ITEM) S)
(MOVEM 1Q (SPECIAL PAT) S)
(JUMPE 1Q TAG6)
(PUSH P (C 0Q 0Q TAG11 0Q))
(MOVEI D (QUOTE (CALLDEMONS (/@ . PAT) (/@ . *IF-REMOVEDS) (/@ . CON))) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CEVAL) S)
TAG11
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP UNREALIZE
((DATUM "OPTIONAL" (CONTEXT CONTEXT))
"AUX"
(PAT)
(COND [(/@ AND (HIDE (/, DATUM) (/, CONTEXT)) (CSETQ PAT (ITEM (/, DATUM))))
(CALLDEMONS PAT (/@ . *IF-REMOVEDS) CONTEXT)])
DATUM)
CEXPR)
(LAP CALLDEMONS SUBR)
(JSP 6Q SPECBIND)
(0Q 3Q (SPECIAL CONTEXT) S)
(HRRZ@ 4Q 3Q)
(MOVEI 3Q (QUOTE NIL))
(PUSH P 2Q)
(MOVE 2Q 1Q)
(EXCH 1Q 0Q P)
(PUSH P (SPECIAL CONTEXT) S)
(CALL 4Q (E SEARCH) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE RUNDAEMONS) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E CINTERRUPT) S)
(JRST 0Q SPECSTR)
NIL
(DEFPROP RUNDAEMONS
((@PAT @CONTEXT @METS) (ALLOW T) (: TLP) (COND [METS (INVOKE (NXTMET) PAT) (GO @TLP)]))
CEXPR)
(LAP NXTMET FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE METS) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG1 (HRRZ@ 1Q 1Q)
(HLRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CAAR) S)
(HRLM@ 2Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP REVEAL SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL CMARKERS) S)
(0Q 0Q (SPECIAL CFRAMES) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL CNUM) S)
(0Q 0Q (SPECIAL NEW) S)
(0Q 0Q (SPECIAL TYPE) S)
(PUSH P 2Q)
(CALL 1Q (E ANALYZE) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(HLRZ@ 1Q 0Q P)
(MOVE 2Q (SPECIAL CMARKERS) S)
(PUSH P 1Q)
(CALL 2Q (E ADDCFRAME) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL CNUM) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(MOVEI 2Q (QUOTE +) S)
(HRLM@ 2Q 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q -1Q P)
(JUMPN 1Q TAG3)
(MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG6)
(MOVE 1Q (SPECIAL NEW) S)
(JUMPE 1Q TAG6)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG6)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 3Q (E INDEX) S)
TAG6 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG14)
(MOVE 2Q -4Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E INVISIBLE) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG16)
(MOVE 2Q (SPECIAL CNUM) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG20)
(CLEARM 1Q (SPECIAL NEW) S)
(PUSH P -2Q P)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(MOVEI 3Q (QUOTE 1Q))
(HLRZ@ 2Q 1Q)
(MOVE 1Q (SPECIAL CNUM) S)
(CALL 3Q (E DELETE) S)
(JUMPN 1Q TAG21)
(MOVEI 1Q (QUOTE +) S)
TAG21 (HRLM@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG20 (JRST 0Q TAG15)
TAG16 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -1Q P)
TAG15 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG1)
TAG14 (MOVE 1Q (SPECIAL NEW) S)
(JUMPE 1Q TAG22)
(HRRZ@ 2Q -3Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -4Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG22 (MOVE 1Q -1Q P)
(JUMPE 1Q TAG23)
(TDZA 1Q 1Q)
TAG23 (MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP HIDE SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL CFRAMES) S)
(0Q 0Q (SPECIAL CMARKERS) S)
(0Q 0Q (SPECIAL CNUM) S)
(0Q 0Q (SPECIAL TYPE) S)
(PUSH P 2Q)
(HRRZ@ 1Q 2Q)
(MOVEM 1Q 0Q P)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 1Q (E ANALYZE) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL CNUM) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q (SPECIAL CFRAMES) S)
(HRRZ@ 2Q (SPECIAL CMARKERS) S)
(MOVEM 1Q -4Q P)
(CALL 2Q (E FINDCFRAME) S)
(MOVEM 1Q -5Q P)
(JUMPE 1Q TAG6)
(CALL 1Q (E CADR) S)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -3Q P)
(HRRZ@ 1Q -5Q P)
(HRRZ@ 1Q 1Q)
(JUMPE 1Q TAG10)
(HRRZ@ 1Q -5Q P)
(HRRZS@ 0Q 1Q)
(JRST 0Q TAG7)
TAG10 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG11)
(MOVEI 3Q (QUOTE 1Q))
(MOVE 2Q (SPECIAL CMARKERS) S)
(MOVE 1Q -5Q P)
(CALL 3Q (E DELQ) S)
(MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG13)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(JUMPN 1Q TAG15)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 2Q (SPECIAL TYPE) S)
(PUSH P 1Q)
(CAIE 2Q (QUOTE ITEM) S)
(TDZA 4Q 4Q)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 4Q (E UNINDEX) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG15
TAG13
TAG11
TAG7
TAG6 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q -5Q P)
(JUMPE 1Q TAG17)
(MOVE 2Q -6Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E INVISIBLE) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG21)
(MOVE 1Q -2Q P)
(JUMPE 1Q TAG23)
(MOVE 2Q -1Q P)
(MOVE 1Q (SPECIAL CNUM) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG24)
(TDZA 1Q 1Q)
TAG24 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG22)
TAG23 (MOVE 1Q -3Q P)
(JUMPN 1Q TAG25)
(MOVE 2Q -1Q P)
(MOVE 1Q (SPECIAL CNUM) S)
(CALL 2Q (E EQUAL) S)
(MOVEM 1Q -3Q P)
TAG25
TAG22 (JRST 0Q TAG20)
TAG21 (CLEARM 1Q -2Q P)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG26)
(MOVE 2Q (SPECIAL CNUM) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E CANCEL) S)
TAG26
TAG20 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG1)
TAG17 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG27)
(HRRZ@ 1Q -4Q P)
(MOVEI 3Q (QUOTE 1Q))
(HRRZ@ 2Q 1Q)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 3Q (E DELQ) S)
(HRRM@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG16)
TAG27 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG30)
(MOVE 1Q -3Q P)
(JUMPN 1Q TAG30)
(HRRZ@ 2Q -4Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -5Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG30
TAG16 (MOVE 1Q 0Q P)
(SUB P (C 7Q 0Q 7Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ADDCFRAME SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL CMARKERS) S)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
TAG1 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(JUMPE 1Q TAG7)
(MOVE 2Q 0Q P)
(CALL 1Q (E CAAR) S)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG6)
TAG7 (MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q (SPECIAL CMARKERS) S)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q (SPECIAL CMARKERS) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL NEW) S)
(JRST 0Q TAG5)
TAG6 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(CALL 1Q (E CAAR) S)
(CAMN 1Q 0Q P)
(JRST 0Q TAG5)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(JRST 0Q TAG1)
TAG5 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(HLRZ@ 1Q 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP FINDCFRAME SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL CMARKERS) S)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q (SPECIAL CMARKERS) S)
(JUMPE 1Q TAG3)
(HLRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(MOVEM 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPN 1Q TAG3)
(MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG6)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q (SPECIAL CMARKERS) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP CANCEL SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 2Q)
(HLRZ@ 2Q 1Q)
(EXCH 1Q 0Q P)
(CALL 2Q (E MERGEN) S)
(HRLM@ 1Q 0Q P)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP MERGEN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG3)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E MERGEN) S)
(HRRM@ 1Q 0Q P)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP MERGE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 2Q)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 2Q 2Q)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG4)
(HLRZ@ 1Q -1Q P)
(MOVE 2Q 0Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 2Q (E MERGE) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG4 (HLRZ@ 2Q -1Q P)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG5)
(HLRZ@ 1Q 0Q P)
(HRRZ@ 2Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E MERGE) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG5 (HLRZ@ 1Q -1Q P)
(HRRZ@ 2Q 0Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(CALL 2Q (E MERGE) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP DPUTCF SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL TYPE) S)
(0Q 0Q (SPECIAL NEW) S)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(CALL 1Q (E ANALYZE) S)
(MOVE 2Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E ADDCFRAME) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL NEW) S)
(JUMPE 1Q TAG5)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -3Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG7)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG11)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 3Q (E INDEX) S)
TAG11
TAG7
TAG5 (MOVE 3Q -3Q P)
(MOVE 2Q -4Q P)
(MOVE 1Q 0Q P)
(SUB P (C 5Q 0Q 5Q 0Q))
(CALL 3Q (E DPUT1) S)
(JRST 0Q SPECSTR)
NIL
(LAP DGETCF SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E CMARKERS) S)
(HRRZ@ 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E FINDCFRAME) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ASSOC) S)
(JRST 0Q SPECSTR)
NIL
(LAP DREMCF SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL CMARKERS) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL TYPE) S)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E ANALYZE) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E FINDCFRAME) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG5)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -3Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(MOVEI 3Q (QUOTE 1Q))
(HRRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 3Q (E DELQ) S)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(JUMPN 1Q TAG11)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG11)
(MOVEI 3Q (QUOTE 1Q))
(MOVE 2Q (SPECIAL CMARKERS) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E DELQ) S)
(MOVEI 3Q (QUOTE 1Q))
(MOVE 2Q -2Q P)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 3Q (E DELQ) S)
TAG11 (MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG14)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(JUMPN 1Q TAG14)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 2Q (SPECIAL TYPE) S)
(PUSH P 1Q)
(CAIE 2Q (QUOTE ITEM) S)
(TDZA 4Q 4Q)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 4Q (E UNINDEX) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG14 (MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DPUT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(MOVE 3Q -2Q P)
(HRRZ 3Q 3Q 3Q)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 2Q -3Q P)
(MOVEI 1Q (QUOTE 3Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 4Q 1Q)
(JUMPN 4Q TAG1)
(MOVE 4Q -3Q P)
(ADD 4Q -5Q P)
(HRRZ 4Q -577777Q 4Q)
TAG1 (HRRZ@ 4Q 4Q)
(HLRZ@ 4Q 4Q)
(POP P 3Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 4Q (E DPUTCF) S)
NIL
(LAP DGET LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE 2Q))
(CALL 2Q (E GETCONTEXT) S)
(JUMPN 1Q TAG1)
(MOVE 1Q 0Q P)
(ADD 1Q -2Q P)
(HRRZ 1Q -577777Q 1Q)
TAG1 (JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL CONTEXT) S)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E CMARKERS) S)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(MOVEI 4Q (QUOTE NIL))
(HRRZ@ 3Q (SPECIAL CONTEXT) S)
(HRRZ@ 1Q 1Q)
(CALL 4Q (E DGET1) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DREM LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 2Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 3Q 1Q)
(JUMPN 3Q TAG1)
(MOVE 3Q -2Q P)
(ADD 3Q -4Q P)
(HRRZ 3Q -577777Q 3Q)
TAG1 (MOVEI 4Q (QUOTE NIL))
(HRRZ@ 3Q 3Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 4Q (E DREM1) S)
NIL
(LAP DPUT+ LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 3Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (POP P 1Q)
(CALL 2Q (E REALITY) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG3)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(MOVE 3Q -2Q P)
(HRRZ 3Q 3Q 3Q)
(CALL 3Q (E DPUT1) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 1Q (QUOTE (ABSENT DATUM)) S)
(CALL 17Q (E CERR) S)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP DGET+ LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E CMARKERS) S)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 2Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 3Q 1Q)
(JUMPN 3Q TAG1)
(MOVE 3Q -2Q P)
(ADD 3Q -4Q P)
(HRRZ 3Q -577777Q 3Q)
TAG1 (MOVEI 4Q (QUOTE T) S)
(HRRZ@ 3Q 3Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 4Q (E DGET1) S)
NIL
(LAP DREM+ LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE 2Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 3Q 1Q)
(JUMPN 3Q TAG1)
(MOVE 3Q -2Q P)
(ADD 3Q -4Q P)
(HRRZ 3Q -577777Q 3Q)
TAG1 (MOVEI 4Q (QUOTE T) S)
(HRRZ@ 3Q 3Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 4Q (E DREM1) S)
NIL
(LAP DPUT1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(MOVE 1Q 3Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG6)
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG6 (HRRZ@ 1Q 0Q P)
(MOVE 2Q -2Q P)
(HRLM@ 2Q 1Q)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 3Q)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q -3Q P)
(HRRZ@ 2Q 2Q)
(MOVEM 1Q 0Q P)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -4Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG4 (MOVE 1Q 0Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP DGET1 SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL CMARKERS) S)
(0Q 3Q (SPECIAL CFRAMES) S)
(PUSH P 2Q)
(PUSH P 4Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG3)
(MOVE 1Q -3Q P)
(JUMPE 1Q TAG7)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E INVISIBLE) S)
(JUMPN 1Q TAG5)
TAG7 (HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -4Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(JRST 0Q TAG2)
TAG10
TAG5 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DREM1 SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(0Q 3Q (SPECIAL CFRAMES) S)
(0Q 0Q (SPECIAL CMARKERS) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL TYPE) S)
(PUSH P 2Q)
(PUSH P 4Q)
(PUSH P 3Q)
(CALL 1Q (E ANALYZE) S)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG3)
(MOVE 1Q -4Q P)
(JUMPE 1Q TAG7)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E INVISIBLE) S)
(JUMPN 1Q TAG5)
TAG7 (HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -5Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(MOVEI 3Q (QUOTE NIL))
(HRRZ@ 2Q -1Q P)
(CALL 3Q (E DELQ) S)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(JUMPN 1Q TAG12)
(HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG12)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 3Q (E DELQ) S)
(MOVEI 3Q (QUOTE NIL))
(HLRZ@ 2Q (SPECIAL CFRAMES) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 3Q (E DELQ) S)
TAG12 (MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG15)
(HRRZ@ 1Q -2Q P)
(JUMPN 1Q TAG15)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 2Q (SPECIAL TYPE) S)
(PUSH P 1Q)
(CAIE 2Q (QUOTE ITEM) S)
(TDZA 4Q 4Q)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 4Q (E UNINDEX) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG15 (MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG10
TAG5 (HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MENTIONERS LSUBR)
(JSP 3Q *LCALL)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL CFRAMES) S)
(0Q 0Q (SPECIAL CMARKERS) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E <) S)
(JUMPE 1Q TAG6)
(CALL 0Q (E TFA) S)
TAG6 (MOVEI 2Q (QUOTE 3Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E <) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE (CONTEXT)) S)
(CALL 17Q (E /,) S)
(JRST 0Q TAG7)
TAG10 (MOVEI 2Q (QUOTE 3Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG11)
(MOVE 1Q -6Q P)
(HRRZ 1Q 3Q 1Q)
(JRST 0Q TAG7)
TAG11 (CALL 0Q (E TMA) S)
TAG7 (HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -6Q P)
(HRRZ 1Q 2Q 1Q)
TAG13 (MOVEM 1Q -1Q P)
(MOVE 1Q -6Q P)
(HRRZ 1Q 1Q 1Q)
(CALL 1Q (E CMARKERS) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(MOVE 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q -3Q P)
TAG1 (CALL 0Q (E MFINTERSECT) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG15)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG20)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E INVISIBLE) S)
(JUMPN 1Q TAG16)
TAG20 (MOVE 2Q 0Q P)
(HLRZ@ 1Q (SPECIAL CFRAMES) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG16 (HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(JRST 0Q TAG1)
TAG15 (MOVE 1Q 0Q P)
(CALL 1Q (E REVERSE) S)
(SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP C-MARKER SUBR)
(PUSH P 2Q)
(CALL 1Q (E CMARKERS) S)
(HRRZ@ 2Q 1Q)
(POP P 1Q)
(JCALL 2Q (E FINDCFRAME) S)
NIL
(LAP MFINTERSECT SUBR)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q (SPECIAL CMARKERS) S)
(JUMPE 1Q TAG7)
(MOVE 1Q (SPECIAL CFRAMES) S)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q (SPECIAL CFRAMES) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG6)
TAG7 (JRST 0Q TAG4)
TAG6
TAG2 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG13)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JUMPN 1Q TAG14)
(JRST 0Q TAG4)
TAG14 (HLRZ@ 1Q (SPECIAL CFRAMES) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG2)
TAG13 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG15)
(HRRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q (SPECIAL CMARKERS) S)
(JUMPN 1Q TAG16)
(JRST 0Q TAG4)
TAG16 (HLRZ@ 1Q (SPECIAL CMARKERS) S)
(MOVEM 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG15 (MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP INVISIBLE SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL CFRAMES) S)
(PUSH P 1Q)
(CAIN 1Q (QUOTE +) S)
(JRST 0Q TAG4)
(JUMPE 1Q TAG6)
(TDZA 1Q 1Q)
TAG6 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG5)
(HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q (SPECIAL CFRAMES) S)
(JUMPE 1Q TAG13)
(CALL 1Q (E CADAR) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q (SPECIAL CFRAMES) S)
(MOVEM 1Q (SPECIAL CFRAMES) S)
(JRST 0Q TAG12)
TAG13 (JRST 0Q TAG10)
TAG12
TAG2 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E >) S)
(JUMPN 1Q TAG1)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG15)
(HRRZ@ 1Q -2Q P)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG16)
(JRST 0Q TAG10)
TAG16 (HLRZ@ 1Q -2Q P)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG2)
TAG15 (MOVE 1Q -1Q P)
(JRST 0Q TAG7)
TAG10 (MOVEI 1Q (QUOTE NIL))
TAG7 (SUB P (C 2Q 0Q 2Q 0Q))
TAG5 (JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP GETCONTEXT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(EXCH 2Q 1Q)
(CALL 2Q (E <) S)
(JUMPE 1Q TAG2)
(CALL 0Q (E TFA) S)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE (CONTEXT)) S)
(CALL 17Q (E /,) S)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 1Q)
(MOVEM 1Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG4 (CALL 0Q (E TMA) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ISEARCH SUBR)
(CALL 3Q (E ISEARCH1) S)
(HRRZ@ 2Q 1Q)
(MOVEI 1Q (QUOTE APPEND) S)
(JCALL 2Q (E APPLY#) S)
NIL
(LAP ISEARCH1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG5 (HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE *LIST) S)
(JRST 0Q TAG6)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CDDR) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q -4Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG6 (CAIN 1Q (QUOTE *INDEX) S)
(JRST 0Q TAG4)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE BAD-STRUCTURE-INDEX--ISEARCH) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
TAG4 (MOVE 3Q -2Q P)
(HLRZ@ 2Q -3Q P)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CADR) S)
(CALL 3Q (E ASEARCH) S)
(HLRZ@ 2Q 1Q)
(MOVEM 1Q 0Q P)
(CAIN 2Q (QUOTE 0Q))
(JRST 0Q TAG12)
(HRRZ@ 1Q -3Q P)
(JUMPE 1Q TAG12)
(MOVE 3Q -2Q P)
(EXCH 2Q 1Q)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CDDR) S)
(CALL 3Q (E ASEARCH) S)
(HLRZ@ 2Q 0Q P)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG11)
TAG12 (MOVE 1Q 0Q P)
(JRST 0Q TAG10)
TAG11 (MOVE 1Q -1Q P)
TAG10
TAG1 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP ASEARCH SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 2Q)
(CALL 1Q (E ATOMIZE) S)
(MOVEM 1Q 0Q P)
(CAIE 1Q (QUOTE *VARIABLE) S)
(JRST 0Q TAG5)
(MOVEI 1Q (QUOTE 10000Q))
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q 0Q P)
(CAIE 1Q (QUOTE *STRUCTURE) S)
(JRST 0Q TAG7)
(MOVE 3Q -4Q P)
(MOVE 2Q -5Q P)
(HLRZ@ 1Q -6Q P)
(CALL 3Q (E ISEARCH1) S)
(JRST 0Q TAG6)
TAG7 (HRRZ@ 2Q -6Q P)
(CALL 2Q (E ASSQ1) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG10)
(CALL 1Q (E CDDR) S)
(CALL 1Q (E NCONS) S)
(HRRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG6)
TAG10 (MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
TAG6 (MOVEM 1Q -2Q P)
(MOVE 1Q -4Q P)
(JUMPN 1Q TAG12)
(HRRZ@ 2Q -6Q P)
(MOVEI 1Q (QUOTE *VARIABLE) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG12)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q -3Q P)
(JUMPE 1Q TAG12)
(HRRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E +) S)
(HRLM@ 1Q -2Q P)
(HRRZ@ 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q -2Q P)
TAG12 (MOVE 1Q -2Q P)
TAG1 (SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP ASSQ1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG2)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC#) S)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP INDEX SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL THING) S)
(0Q 3Q (SPECIAL INDEX) S)
(0Q 0Q (SPECIAL PFORM) S)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 3Q TAG5)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE BAD-INDEX--INDEX) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
(JRST 0Q TAG4)
TAG5 (HLRZ@ 1Q 3Q)
(CAIE 1Q (QUOTE *LIST) S)
(JRST 0Q TAG6)
(HRRZ@ 1Q 3Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ADD1) S)
(MOVE 2Q (SPECIAL *INDEXTHRESHOLD) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE *INDEX) S)
(HRLM@ 1Q (SPECIAL INDEX) S)
(HRRZ@ 1Q (SPECIAL INDEX) S)
(CALL 1Q (E CDDR) S)
(MOVEM 1Q -1Q P)
(HRRZ@ 1Q (SPECIAL INDEX) S)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL PFORM) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q (SPECIAL INDEX) S)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(MOVEI 1Q (QUOTE (LAMBDA (THING) (INDEX THING (/@ . PFORM) INDEX))) S)
(CALL 17Q (E !/") S)
(MOVE 2Q -1Q P)
(PUSHJ P *MAPC)
(JRST 0Q TAG7)
TAG10 (HRRZ@ 2Q (SPECIAL INDEX) S)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL THING) S)
(CALL 2Q (E CONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q (SPECIAL INDEX) S)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(MOVE 1Q (SPECIAL THING) S)
(JRST 0Q TAG1)
TAG7 (JRST 0Q TAG4)
TAG6 (CAIE 1Q (QUOTE *INDEX) S)
(JRST 0Q TAG12)
(HRRZ@ 1Q 3Q)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL PFORM) S)
(JRST 0Q TAG4)
TAG12 (MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE BAD-INDEX--INDEX) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
TAG4 (MOVE 5Q (SPECIAL PFORM) S)
(MOVEI 4Q (QUOTE CAR) S)
(HRRZ@ 3Q (SPECIAL INDEX) S)
(HRRZ@ 3Q 3Q)
(HLRZ@ 3Q 3Q)
(HLRZ@ 2Q -2Q P)
(MOVE 1Q (SPECIAL THING) S)
(CALL 5Q (E INDEX1) S)
(HRRZ@ 1Q -2Q P)
(JUMPE 1Q TAG14)
(MOVE 5Q (SPECIAL PFORM) S)
(MOVEI 4Q (QUOTE CDR) S)
(HRRZ@ 3Q (SPECIAL INDEX) S)
(HRRZ@ 3Q 3Q)
(HRRZ@ 3Q 3Q)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL THING) S)
(CALL 5Q (E INDEX1) S)
TAG14 (MOVE 1Q (SPECIAL THING) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP UNINDEX SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL THING) S)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(JUMPN 3Q TAG2)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE BAD-INDEX--UNINDEX) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 3Q)
(CAIE 1Q (QUOTE *LIST) S)
(JRST 0Q TAG3)
(HRRZ@ 1Q 3Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E SUB1) S)
(MOVE 3Q -1Q P)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL THING) S)
(CALL 3Q (E DELTHING) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HRRM@ 1Q 0Q P)
(MOVE 1Q (SPECIAL THING) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG3 (CAIE 1Q (QUOTE *INDEX) S)
(JRST 0Q TAG4)
(HRRZ@ 3Q 3Q)
(HRRZ@ 3Q 3Q)
(HLRZ@ 3Q 3Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL THING) S)
(CALL 4Q (E UNINDEX1) S)
(HRRZ@ 1Q -2Q P)
(JUMPE 1Q TAG6)
(MOVE 4Q 0Q P)
(HRRZ@ 3Q -1Q P)
(HRRZ@ 3Q 3Q)
(HRRZ@ 3Q 3Q)
(MOVE 2Q 1Q)
(MOVE 1Q (SPECIAL THING) S)
(CALL 4Q (E UNINDEX1) S)
TAG6 (MOVE 1Q (SPECIAL THING) S)
(JRST 0Q TAG1)
TAG4 (MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE BAD-INDEX--UNINDEX) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP INDEX1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 2Q)
(CALL 1Q (E ATOMIZE) S)
(MOVEM 1Q 0Q P)
(CAIE 1Q (QUOTE *STRUCTURE) S)
(JRST 0Q TAG5)
(HLRZ@ 1Q -4Q P)
(JUMPN 1Q TAG7)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE *LIST) S)
(CALL 2Q (E XCONS) S)
(HRLM@ 1Q -4Q P)
TAG7 (HLRZ@ 3Q -4Q P)
(MOVE 2Q -5Q P)
(MOVE 1Q -6Q P)
(CALL 3Q (E INDEX) S)
(JRST 0Q TAG4)
TAG5 (HRRZ@ 2Q -4Q P)
(CALL 2Q (E ASSQ1) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG10)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ADD1) S)
(HRRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(PUSH P 1Q)
(MOVE 1Q -7Q P)
(CALL 2Q (E CONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HRRM@ 1Q -1Q P)
(JRST 0Q TAG4)
TAG10 (MOVE 1Q -6Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q -4Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q -4Q P)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP UNINDEX1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(MOVE 1Q 2Q)
(CALL 1Q (E ATOMIZE) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CAIE 1Q (QUOTE *STRUCTURE) S)
(JRST 0Q TAG5)
(MOVE 4Q -3Q P)
(HLRZ@ 3Q -4Q P)
(MOVE 2Q -5Q P)
(MOVE 1Q -6Q P)
(CALL 4Q (E UNINDEX) S)
(JRST 0Q TAG4)
TAG5 (HRRZ@ 2Q -4Q P)
(CALL 2Q (E ASSQ1) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(CALL 1Q (E CADR) S)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -1Q P)
(CAIE 1Q (QUOTE 0Q))
(JRST 0Q TAG10)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q -4Q P)
(MOVE 1Q 0Q P)
(CALL 3Q (E DELQ) S)
(JRST 0Q TAG7)
TAG10 (MOVE 3Q -3Q P)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -6Q P)
(CALL 3Q (E DELTHING) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(HRRM@ 1Q 0Q P)
TAG7
TAG6
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 7Q 0Q 7Q 0Q))
(POPJ P)
NIL
(LAP ANALYZE SUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (MEANINGLESS DATUM -- ANALYZE)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(CALL 1Q (E ANALYZE) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ANALYZE) S)
(MOVE 1Q 0Q P)
(MOVEM 1Q (SPECIAL DATUM) S)
(HRRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG4 (CAIE 1Q (QUOTE *OBJECT) S)
(JRST 0Q TAG5)
(CLEARM 1Q (SPECIAL PATTERN) S)
(MOVEI 1Q (QUOTE OBJECT) S)
(MOVEM 1Q (SPECIAL TYPE) S)
(HRRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEM 1Q (SPECIAL TYPE) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL PATTERN) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(JUMPE 1Q TAG10)
(MOVEM 1Q (SPECIAL DATUM) S)
TAG10 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CDDR) S)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(MOVEM 1Q (SPECIAL PATTERN) S)
(MOVEI 1Q (QUOTE ITEM) S)
(MOVEM 1Q (SPECIAL TYPE) S)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP CMARKERS SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (MEANINGLESS DATUM -- CMARKERS)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E GET) S)
(CALL 1Q (E CMARKERS) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q (SPECIAL DATUM) S)
(CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q (SPECIAL DATUM) S)
(HRRZ@ 1Q 1Q)
(JRST 0Q TAG1)
TAG4 (CAIE 1Q (QUOTE *OBJECT) S)
(JRST 0Q TAG5)
(HRRZ@ 1Q (SPECIAL DATUM) S)
(JRST 0Q TAG1)
TAG5 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(HRRZ@ 1Q (SPECIAL DATUM) S)
(CALL 1Q (E CDDR) S)
(JRST 0Q TAG1)
TAG6 (MOVE 1Q (SPECIAL DATUM) S)
TAG1 (JRST 0Q SPECSTR)
NIL
(LAP PATTERN SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (MEANINGLESS DATUM -- PATTERN)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E GET) S)
(CALL 1Q (E PATTERN) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q (SPECIAL DATUM) S)
(CAIE 1Q (QUOTE *CLOSURE) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q (SPECIAL DATUM) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E PATTERN) S)
(JRST 0Q TAG1)
TAG4 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q (SPECIAL DATUM) S)
(CALL 1Q (E CADR) S)
(JRST 0Q TAG1)
TAG5 (HLRZ@ 1Q (SPECIAL DATUM) S)
TAG1 (JRST 0Q SPECSTR)
NIL
(LAP DELTHING SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 3Q TAG2)
(CALL 1Q (E ITEM) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E DELITEM) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 3Q (QUOTE T) S)
(CALL 3Q (E DELQ) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DELITEM SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL EXP) S)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(JUMPE 1Q TAG1)
(HLRZ@ 1Q 1Q)
(PUSH P (SPECIAL EXP) S)
(CALL 1Q (E ITEM) S)
(POP P 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 2Q 0Q P)
(MOVE 1Q (SPECIAL EXP) S)
(CALL 2Q (E DELITEM) S)
(HRRM@ 1Q 0Q P)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MEMCAR SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL EXP) S)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(JUMPE 1Q TAG1)
(HLRZ@ 1Q 1Q)
(PUSH P (SPECIAL EXP) S)
(CALL 1Q (E ITEM) S)
(POP P 2Q)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 2Q 0Q P)
(MOVE 1Q (SPECIAL EXP) S)
(CALL 2Q (E MEMCAR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP FIRSTCAR< SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG3)
(MOVE 2Q -1Q P)
(CALL 1Q (E CAAR) S)
(CALL 2Q (E <) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ITEM SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL DATUM) S)
(JUMPN 1Q TAG2)
(MOVEI 1Q (QUOTE (MEANINGLESS DATUM)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE DATUM) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E GET) S)
(CALL 1Q (E ITEM) S)
(JRST 0Q TAG1)
TAG3 (HLRZ@ 1Q (SPECIAL DATUM) S)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG5)
(MOVE 1Q 0Q P)
(JRST 0Q TAG4)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG4 (SUB P (C 1Q 0Q 1Q 0Q))
TAG1 (JRST 0Q SPECSTR)
NIL
(LAP DATUMIZE SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E DATUM) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ATOMIZE SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E ACTOR) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE *VARIABLE) S)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE *STRUCTURE) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PUSH-CONTEXT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVNI 6Q 0Q)
(JCALL 16Q (E CFRAME) S)
TAG1 (PUSH P 1Q)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE 0Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG2)
(MOVE 2Q -1Q P)
(ADD 2Q -3Q P)
(HRRZ 2Q -577777Q 2Q)
TAG2 (HRRZ@ 2Q 2Q)
(POP P 1Q)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE *CONTEXT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP POP-CONTEXT LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 2Q (E GETCONTEXT) S)
(MOVE 2Q 1Q)
(JUMPN 2Q TAG1)
(MOVE 2Q 0Q P)
(ADD 2Q -2Q P)
(HRRZ 2Q -577777Q 2Q)
TAG1 (HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE *CONTEXT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E CONS) S)
NIL
(LAP NEW-CONTEXT SUBR)
(PUSH P 1Q)
(CALL 1Q (E ORDERED) S)
(JUMPE 1Q TAG2)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE *CONTEXT) S)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE (UNORDERED CONTEXT)) S)
(CALL 17Q (E CERR) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SPLICE SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL CONTEXT) S)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(CALL 1Q (E CADR) S)
(HLRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 1Q (E CADR) S)
(CALL 2Q (E NEWCNUM) S)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CFRAME) S)
TAG1 (HRRZ@ 2Q (SPECIAL CONTEXT) S)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q 0Q P)
(MOVE 1Q (SPECIAL CONTEXT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP IN-CONTEXT SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL CONTEXT) S)
(0Q 2Q (SPECIAL EXPR) S)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE ((CLAMBDA (CONTEXT) (CEVAL (/@ . EXPR))) (/@ . CONTEXT))) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CEVAL) S)
TAG1 (JRST 0Q SPECSTR)
NIL
(DEFPROP IN-CONTEXT
((CONTEXT EXPR) (CEVAL EXPR))
CEXPR)
(LAP PATH SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE CADR) S)
(PUSH P D)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG1 (MOVEI 2Q (QUOTE *CONTEXT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E XCONS) S)
NIL
(LAP FINALIZE SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL TYPE) S)
(0Q 0Q (SPECIAL NEW) S)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HRRZ@ 1Q -11Q P)
(MOVEM 1Q -11Q P)
(JUMPN 1Q TAG10)
(HRRZ@ 2Q -13Q P)
(MOVEI 1Q (QUOTE *CONTEXT) S)
(CALL 2Q (E CONS) S)
(JRST 0Q TAG4)
TAG10 (HLRZ@ 1Q -11Q P)
(MOVEM 1Q (SPECIAL DATUM) S)
(CALL 1Q (E ANALYZE) S)
(MOVEM 1Q 0Q P)
(HRRZ@ 2Q 1Q)
(MOVE 1Q -12Q P)
(CALL 2Q (E FINDCFRAME) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG12)
(MOVE 2Q 0Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E ADDCFRAME) S)
(MOVEM 1Q -3Q P)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -5Q P)
(MOVE 1Q (SPECIAL NEW) S)
(JUMPE 1Q TAG13)
(TDZA 1Q 1Q)
TAG13 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG11)
TAG12 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -7Q P)
(CALL 2Q (E FINDCFRAME) S)
(MOVEM 1Q -1Q P)
(MOVEM 1Q -3Q P)
TAG11 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG15)
(CALL 1Q (E CDDR) S)
(PUSH P 1Q)
TAG2 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG22)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVE 2Q -5Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -6Q P)
(JUMPE 1Q TAG24)
(HRRZ@ 1Q 0Q P)
(HRRM@ 1Q -6Q P)
(JRST 0Q TAG23)
TAG24 (HRRZ@ 2Q -5Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -6Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG23 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG22 (SUB P (C 1Q 0Q 1Q 0Q))
TAG15 (MOVE 1Q -5Q P)
(JUMPE 1Q TAG26)
(PUSH P -3Q P)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(HLRZ@ 2Q 1Q)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E MERGE) S)
(JUMPN 1Q TAG27)
(MOVEI 1Q (QUOTE +) S)
TAG27 (HRLM@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG25)
TAG26 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG32)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG32)
(HRRZ@ 2Q -3Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -10Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG32)
(MOVE 2Q -13Q P)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E HIDE) S)
(JRST 0Q TAG1)
TAG32 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -6Q P)
(CALL 2Q (E FIRSTCAR<) S)
(PUSH P 1Q)
TAG3 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG43)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG45)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -12Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG45)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL NEW) S)
(MOVE 1Q -3Q P)
(JUMPN 1Q TAG50)
(HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -10Q P)
(CALL 2Q (E MEMBER) S)
(MOVEM 1Q -3Q P)
TAG50 (HRRZ@ 1Q 0Q P)
(HLRZ@ 2Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -11Q P)
(CALL 2Q (E MERGEN) S)
(HRLM@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG45 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG43 (SUB P (C 1Q 0Q 1Q 0Q))
TAG25 (MOVE 1Q (SPECIAL NEW) S)
(JUMPE 1Q TAG52)
(MOVE 1Q -1Q P)
(JUMPN 1Q TAG54)
(HRRZ@ 2Q -7Q P)
(HRRZ@ 2Q 2Q)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -10Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
TAG54
TAG52 (JRST 0Q TAG1)
TAG4 (SUB P (C 14Q 0Q 14Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP CFRAME LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CAIE 1Q (QUOTE 0Q))
(JRST 0Q TAG2)
(MOVE 2Q (SPECIAL *CNUM) S)
(MOVE 1Q (SPECIAL INCCON) S)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q (SPECIAL *CNUM) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG1 (CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CFRAME) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q 0Q P)
(MOVE 2Q (SPECIAL NUMCON) S)
(MOVE 1Q (SPECIAL NUMACT) S)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG5)
(CALL 0Q (E GC) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 17Q (E GCCON) S)
(MOVE 2Q (SPECIAL NUMCON) S)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG5)
(MOVEI 1Q (QUOTE (TOO MANY CONTEXT-FRAMES)) S)
(CALL 17Q (E CERR) S)
TAG5 (MOVEI 2Q (QUOTE FIXNUM) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MAKNUM) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL NUMACT) S)
(CALL 1Q (E FRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(HRRZ@ 1Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL NUMACT) S)
(CALL 1Q (E RFRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(MOVE 1Q (SPECIAL NUMACT) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL NUMACT) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP ORDERED SUBR)
(PUSH P 1Q)
(JUMPE 1Q TAG3)
(TDZA 1Q 1Q)
TAG3 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG2)
TAG1 (HRRZ@ 1Q 0Q P)
(JUMPE 1Q TAG10)
(HLRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E <) S)
(JUMPN 1Q TAG11)
(JRST 0Q TAG5)
TAG11 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG10 (MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG4)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG4
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NEWCNUM SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E *PLUS) S)
(MOVEI 2Q (QUOTE 2Q))
(CALL 2Q (E *QUO) S)
(MOVE 2Q 0Q P)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E CNUMSINUSE) S)
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(PUSH P 1Q)
TAG1 (PUSH P -3Q P)
(PUSH P -3Q P)
(MOVE 1Q -1Q P)
(JUMPE 1Q TAG10)
(MOVE 2Q 0Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG10)
(MOVE 1Q 0Q P)
(JRST 0Q TAG7)
TAG10 (MOVEI 1Q (QUOTE NIL))
TAG7 (MOVE 2Q -6Q P)
(CALL 2Q (E *GREAT) S)
(SUB P (C 2Q 0Q 2Q 0Q))
(JUMPE 1Q TAG6)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG14)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE 0Q))
(CALL 2Q (E *DIF) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG14 (MOVE 1Q -2Q P)
(JRST 0Q TAG2)
(JRST 0Q TAG5)
TAG6 (MOVEI 1Q (QUOTE (NO NEW CNUM BETWEEN (* LOW) AND (* HIGH))) S)
(CALL 17Q (E CERR) S)
TAG5 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP CNUMSINUSE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
(MOVE 1Q (SPECIAL NUMACT) S)
(CALL 1Q (E SUB1) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 1Q -3Q P)
(CALL 1Q (E RFRAMES) S)
(HLRZ@ 2Q 1Q)
(MOVEM 2Q -1Q P)
(MOVE 1Q -5Q P)
(CALL 2Q (E >) S)
(JUMPN 1Q TAG5)
(MOVE 2Q -4Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPN 1Q TAG5)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG5 (MOVE 1Q -3Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP *GCCON SUBR)
(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
(PUSH P (SPECIAL NUMACT) S)
TAG1 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG10)
(MOVE 1Q -1Q P)
(JRST 0Q TAG4)
TAG10 (MOVE 1Q -1Q P)
(CALL 1Q (E FRAMES) S)
(CALL 1Q (E NUMVAL) S)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E RFRAMES) S)
(POP P 2Q)
(CAME 1Q 2Q)
(JRST 0Q TAG11)
(MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG11 (MOVE 1Q -1Q P)
(CALL 1Q (E RFRAMES) S)
(CALL 1Q (E FLUSH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E RFRAMES) S)
(MOVEI 1Q (QUOTE 0Q))
(PUSHJ P NSTR)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(MOVE 2Q -1Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG13)
(MOVE 1Q -1Q P)
(JRST 0Q TAG4)
TAG13 (MOVE 1Q 0Q P)
(CALL 1Q (E FRAMES) S)
(CALL 1Q (E NUMVAL) S)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E RFRAMES) S)
(POP P 2Q)
(CAMN 1Q 2Q)
(JRST 0Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E RFRAMES) S)
(CALL 1Q (E FLUSH) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E RFRAMES) S)
(MOVEI 1Q (QUOTE 0Q))
(PUSHJ P NSTR)
(JRST 0Q TAG2)
TAG3 (MOVE 1Q 0Q P)
(CALL 1Q (E FRAMES) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E FRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(MOVE 1Q 0Q P)
(CALL 1Q (E RFRAMES) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E RFRAMES) S)
(POP P 1Q)
(PUSHJ P NSTR)
(MOVE 1Q 0Q P)
(CALL 1Q (E RFRAMES) S)
(MOVEI 1Q (QUOTE 0Q))
(PUSHJ P NSTR)
(JRST 0Q TAG1)
TAG4 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP GCCON FSUBR)
(PUSH P 1Q)
(CALL 0Q (E *GCCON) S)
(MOVEM 1Q (SPECIAL NUMACT) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FLUSH SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL DATUM) S)
(0Q 0Q (SPECIAL PATTERN) S)
(0Q 0Q (SPECIAL TYPE) S)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG3)
(HLRZ@ 1Q -2Q P)
(MOVEM 1Q (SPECIAL DATUM) S)
(CALL 1Q (E ANALYZE) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E REMCFRAME) S)
(JUMPE 1Q TAG7)
(MOVE 1Q (SPECIAL PATTERN) S)
(JUMPE 1Q TAG7)
(HRRZ@ 1Q 0Q P)
(JUMPN 1Q TAG7)
(MOVEI 2Q (QUOTE *INDEX) S)
(MOVE 1Q (SPECIAL TYPE) S)
(CALL 2Q (E GET) S)
(MOVE 2Q (SPECIAL TYPE) S)
(PUSH P 1Q)
(CAIE 2Q (QUOTE ITEM) S)
(TDZA 4Q 4Q)
(MOVEI 4Q (QUOTE T) S)
(MOVE 3Q 1Q)
(MOVE 2Q (SPECIAL PATTERN) S)
(MOVE 1Q (SPECIAL DATUM) S)
(CALL 4Q (E UNINDEX) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG7 (HRRZ@ 1Q -2Q P)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP REMCFRAME SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HRRZ@ 1Q -3Q P)
(JUMPE 1Q TAG4)
(HLRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(MOVEM 2Q 0Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E =) S)
(JUMPE 1Q TAG7)
(HRRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -4Q P)
(CALL 1Q (E CADAR) S)
(POP P 2Q)
(HRRM@ 2Q -3Q P)
(JUMPE 1Q TAG11)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG3)
TAG11 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG6)
TAG7 (MOVE 2Q 0Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG12)
(HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(JRST 0Q TAG1)
TAG12
TAG6
TAG2 (HRRZ@ 1Q -3Q P)
(MOVEM 1Q -3Q P)
(JUMPN 1Q TAG14)
(MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG14 (HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(HRRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -4Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG17)
(PUSH P -1Q P)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(MOVEI 3Q (QUOTE 1Q))
(HLRZ@ 2Q 1Q)
(MOVE 1Q -5Q P)
(CALL 3Q (E DELETE) S)
(JUMPN 1Q TAG20)
(MOVEI 1Q (QUOTE +) S)
TAG20 (HRLM@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG17
TAG15 (JRST 0Q TAG2)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP !/" FSUBR)
(JCALL 1Q (E !/"1) S)
NIL
(DEFPROP !/" CP-!/" CPRINT)
(LAP !/"1 SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE /@) S)
(JRST 0Q TAG3)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(JRST 0Q TAG1)
TAG3 (CAIE 1Q (QUOTE /,) S)
(JRST 0Q TAG4)
(MOVEI 2Q (QUOTE *TOP) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E IVAL) S)
(JRST 0Q TAG1)
TAG4 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(HLRZ@ 1Q 0Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E !/"1) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG5 (HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CAIE 1Q (QUOTE !@) S)
(JRST 0Q TAG6)
(HLRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E !/"1) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *APPEND) S)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E !/"1) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 1Q (E !/"1) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP KTH SUBR)
(CALL 2Q (E NTH) S)
(HLRZ@ 1Q 1Q)
(POPJ P)
NIL
(DEFPROP TRY-NEXT
((POSSIBILITIES "OPTIONAL" (NOMORE NIL) (MESSAGE NIL))
"AUX"
(POS)
(: TRY-NEXT)
(GO (NEXT))
(: EXIT)
(RETURN (CEVAL NOMORE (ACCESS)))
(: RETURN)
(RETURN POS)
(: *METHOD)
(METGO)
(: *GENERATOR)
(GENGO)
(: *AU-REVOIR)
(REGO)
(: *BLOCK)
(TBLOCK))
CEXPR)
(LAP NEXT FSUBR)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE (POSSIBILITIES)) S)
(CALL 17Q (E /,) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG4)
(HLRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CAIN 1Q (QUOTE *POSSIBILITIES) S)
(JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE (BAD POSSIBILITIES LIST)) S)
(CALL 17Q (E CERR) S)
TAG3 (PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 1Q -1Q P)
(JUMPN 1Q TAG11)
(MOVEI 1Q (QUOTE EXIT) S)
(JRST 0Q TAG5)
TAG11 (HRRZ@ 1Q -1Q P)
(CALL 1Q (E UNBLOCK) S)
TAG1 (HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(JUMPN 1Q TAG13)
(MOVEI 1Q (QUOTE EXIT) S)
(JRST 0Q TAG5)
TAG13 (HRRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(HRRM@ 1Q -1Q P)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(CAIN 1Q (QUOTE *IGNORE) S)
(JRST 0Q TAG1)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG15)
(PUSH P (C 0Q 0Q TAG16 0Q))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG16 (MOVEI 1Q (QUOTE RETURN) S)
(JRST 0Q TAG5)
TAG15 (HLRZ@ 1Q 0Q P)
(CAIE 1Q (QUOTE *ITEM) S)
(JRST 0Q TAG17)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E SETUP) S)
(PUSH P (C 0Q 0Q TAG20 0Q))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG20 (MOVEI 1Q (QUOTE RETURN) S)
(JRST 0Q TAG5)
TAG17 (CAIE 1Q (QUOTE *NOTE) S)
(JRST 0Q TAG21)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E SETUP) S)
(PUSH P (C 0Q 0Q TAG22 0Q))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG22 (MOVEI 1Q (QUOTE RETURN) S)
(JRST 0Q TAG5)
TAG21 (MOVEI 2Q (QUOTE (*METHOD *GENERATOR *AU-REVOIR *BLOCK)) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG23)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG5)
TAG23 (PUSH P (C 0Q 0Q TAG25 0Q))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E CSET) S)
TAG25 (MOVEI 1Q (QUOTE RETURN) S)
(JRST 0Q TAG5)
TAG5 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SETUP SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG2 0Q))
(MOVNI 6Q 0Q)
(JCALL 16Q (E ACCESS) S)
TAG2 (MOVEM 1Q (SPECIAL TEM) S)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG10 0Q))
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(PUSH P (SPECIAL TEM) S)
(MOVNI 6Q 3Q)
(JCALL 16Q (E CSET) S)
TAG10 (HRRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG7 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP GENGO SUBR)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVEI 1Q (QUOTE POSSIBILITIES) S)
(CALL 2Q (E IVAL) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL TEM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NEXT) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q (SPECIAL BVARS) S)
(MOVEI 1Q (QUOTE TRY-NEXT) S)
(CALL 1Q (E TAG) S)
(CALL 1Q (E FR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(CALL 1Q (E CDADR) S)
(MOVEM 1Q (SPECIAL ALINK) S)
(HLRZ@ 1Q (SPECIAL TEM) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL TEM1) S)
(CLEARM 1Q (SPECIAL FRAME*) S)
(MOVEI 1Q (QUOTE *BLOCK) S)
(CALL 1Q (E NCONS) S)
(HRLM@ 1Q (SPECIAL TEM) S)
(MOVEI 4Q (QUOTE *TOP) S)
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE POPJ) S)
(MOVE 1Q (SPECIAL TEM1) S)
(JCALL 4Q (E DISPATCH) S)
NIL
(DEFPROP GENGO GENGO CINT)
(LAP METGO SUBR)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVEI 1Q (QUOTE POSSIBILITIES) S)
(CALL 2Q (E IVAL) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL TEM) S)
(CALL 1Q (E CADAR) S)
(MOVEM 1Q (SPECIAL TEM1) S)
(MOVE 1Q (SPECIAL TEM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE NEXT) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL TEM1) S)
(CALL 1Q (E TEXT) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *BODY) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q (SPECIAL TEM) S)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E CADDDR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CALLPAT) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL TEM1) S)
(CALL 1Q (E PATTERN) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *METHPAT) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q (SPECIAL TEM) S)
(CALL 1Q (E CADDDR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *CALLALIST) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q (SPECIAL TEM) S)
(CALL 1Q (E CADDR) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *METHALIST) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HLRZ@ 2Q (SPECIAL TEM) S)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E *NCONC) S)
(MOVEM 1Q (SPECIAL BVARS) S)
(HLRZ@ 1Q (SPECIAL TEM) S)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E CADDDR) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL TEM1) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL EXP) S)
(CLEARM 1Q (SPECIAL FRAME*) S)
(MOVEI 1Q (QUOTE TRY-NEXT) S)
(CALL 1Q (E TAG) S)
(CALL 1Q (E FR) S)
(MOVEM 1Q (SPECIAL CLINK) S)
(CALL 1Q (E CDADR) S)
(MOVEM 1Q (SPECIAL ALINK) S)
(CALL 0Q (E CLOSE) S)
(MOVEI 1Q (QUOTE *BLOCK) S)
(CALL 1Q (E NCONS) S)
(HRLM@ 1Q (SPECIAL TEM) S)
(MOVEI 1Q (QUOTE AUXB) S)
(POPJ P)
NIL
(DEFPROP METGO METGO CINT)
(LAP REGO SUBR)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVEI 1Q (QUOTE POSSIBILITIES) S)
(CALL 2Q (E IVAL) S)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL TEM) S)
(MOVE 2Q (SPECIAL ALINK) S)
(MOVEI 1Q (QUOTE MESSAGE) S)
(CALL 2Q (E IVAL) S)
(MOVEM 1Q (SPECIAL VAL) S)
(HLRZ@ 1Q (SPECIAL TEM) S)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL FRAME*) S)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(HLRZ@ 1Q (SPECIAL TEM) S)
(PUSH P 1Q)
(MOVNI 6Q 2Q)
(JCALL 16Q (E VFRAME) S)
TAG1 (PUSH P 1Q)
(MOVEI 1Q (QUOTE TRY-NEXT) S)
(CALL 1Q (E TAG) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E SETCONTROL) S)
(PUSH P (C 0Q 0Q TAG2 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(PUSH P (SPECIAL TEM) S)
(HLRZ@ 1Q (SPECIAL TEM) S)
(PUSH P 1Q)
(MOVNI 6Q 3Q)
(JCALL 16Q (E CSET) S)
TAG2 (MOVEI 1Q (QUOTE *BLOCK) S)
(CALL 1Q (E NCONS) S)
(HRLM@ 1Q (SPECIAL TEM) S)
(JCALL 0Q (E RESTORE) S)
NIL
(DEFPROP REGO REGO CINT)
(DEFPROP TBLOCK
(NIL (NCONC (CADR POSSIBILITIES) (TAG @TRY-NEXT))
(ALLOW NIL)
(COND [(/@ . READY) (CONTINUE (/@ PROG2 (ALLOW T) (CAR READY) (SETQ READY (CDR READY))))])
(ALLOW T)
(LISTEN @ALL-BLOCKED-UP))
CEXPR)
(LAP UNBLOCK SUBR)
(PUSH P 1Q)
(CALL 1Q (E CAAR) S)
(CAIE 1Q (QUOTE *BLOCK) S)
(JRST 0Q TAG2)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE READY) S)
(CALL 2Q (E GET) S)
(HLRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E *NCONC) S)
(MOVEI 1Q (QUOTE *IGNORE) S)
(HRLM@ 1Q 0Q P)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP NOTE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E =) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE NIL))
(CALL 17Q (E INSTANCE) S)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(CALL 1Q (E ENTER) S)
TAG5 (MOVEI 1Q (QUOTE 0Q))
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG2)
TAG3 (PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q TAG12 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG12 (HRRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
TAG1 (MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVE 2Q -2Q P)
(MOVEM 1Q -1Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG14)
(MOVE 1Q -2Q P)
(JRST 0Q TAG7)
TAG14 (MOVE 1Q -1Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
(HLRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(HLRZ@ 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(HRLM@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG7 (SUB P (C 2Q 0Q 2Q 0Q))
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP ADIEU
(("REST" L) (PROPOSE) (DISMISS (VFRAME @NEXT)))
CEXPR)
(DEFPROP AU-REVOIR
(("REST" L) (PROPOSE) (ENTER (CONS @*AU-REVOIR (CDR (CONTROL)))) (DISMISS (VFRAME @NEXT)))
CEXPR)
(LAP ENTER SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG1 (HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL TEM) S)
(HLRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(POP P 1Q)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q (SPECIAL TEM) S)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(HLRZ@ 1Q (SPECIAL TEM) S)
(HRRZ@ 1Q 1Q)
(HRLM@ 1Q (SPECIAL TEM) S)
(MOVE 1Q (SPECIAL TEM) S)
(POPJ P)
NIL
(LAP PROPOSE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG2 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG2 (HRRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE (L)) S)
(CALL 17Q (E /,) S)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q 1Q)
(HLRZ@ 2Q -1Q P)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HLRZ@ 1Q -2Q P)
(POP P 2Q)
(HRRM@ 2Q 1Q)
(HLRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(HRLM@ 1Q -1Q P)
(HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG7 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP INSTANCE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VFRAME) S)
TAG4 (CALL 1Q (E FR) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVEI 1Q (QUOTE *CALLALIST) S)
(CALL 2Q (E IVAL) S)
(MOVEM 1Q -1Q P)
(PUSH P (C 0Q 0Q TAG5 0Q))
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE *CALLPAT) S)
(CALL 2Q (E IVAL) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE *METHPAT) S)
(CALL 2Q (E IVAL) S)
(PUSH P 1Q)
(PUSH P -4Q P)
(MOVE 2Q -4Q P)
(MOVEI 1Q (QUOTE *METHALIST) S)
(CALL 2Q (E IVAL) S)
(PUSH P 1Q)
(MOVNI 6Q 4Q)
(JCALL 16Q (E MATCH) S)
TAG5 (MOVEM 1Q -2Q P)
(JUMPE 1Q TAG7)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E CPY) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *NOTE) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG7 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP CPY SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG6)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E NCONS) S)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -3Q P)
(MOVE 1Q -2Q P)
(JUMPE 1Q TAG10)
(MOVE 1Q -3Q P)
(HRRM@ 1Q -2Q P)
(HRRZ@ 1Q -2Q P)
(JRST 0Q TAG7)
TAG10 (MOVE 1Q -3Q P)
(MOVEM 1Q -1Q P)
TAG7 (MOVEM 1Q -2Q P)
(HRRZ@ 1Q -4Q P)
(MOVEM 1Q -4Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG6 (MOVE 1Q 0Q P)
(SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP GET-POSSIBILITIES FSUBR)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VFRAME) S)
TAG1 (CALL 1Q (E FR) S)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE POSSIBILITIES) S)
(JCALL 2Q (E IVAL) S)
NIL
(LAP SET-POSSIBILITIES SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE POSSIBILITIES) S)
(PUSH P D)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG2 0Q))
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VFRAME) S)
TAG3 (PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CONTROL) S)
TAG2 (PUSH P 1Q)
(MOVNI 6Q 3Q)
(JCALL 16Q (E CSET) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP GENERATE
((@FORM)
"AUX"
((POSSIBILITIES (LIST (LIST @*POSSIBILITIES (/, FORM)) (LIST @*GENERATOR (/, FORM)))))
(GENGO)
(: TRY-NEXT)
POSSIBILITIES)
CEXPR)
(LAP MATCH LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
(MOVE 2Q -2Q P)
(HRRZ 2Q 2Q 2Q)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL MALIST1) S)
(0Q 0Q (SPECIAL MALIST2) S)
(0Q 0Q (SPECIAL MALISTV1) S)
(0Q 0Q (SPECIAL MALISTV2) S)
(0Q 0Q (SPECIAL NOBIND) S)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -2Q P)
(CALL 2Q (E >) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -4Q P)
(HRRZ 1Q 3Q 1Q)
(MOVEM 1Q (SPECIAL MALIST1) S)
(MOVE 1Q -4Q P)
(HRRZ 1Q 4Q 1Q)
(MOVEM 1Q (SPECIAL MALIST2) S)
(MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL NOBIND) S)
TAG5 (MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE MALIST1) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q (SPECIAL MALISTV1) S)
(MOVEI 1Q (QUOTE MALIST2) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q (SPECIAL MALISTV2) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E MATCH1) S)
(JUMPE 1Q TAG7)
(MOVE 1Q (SPECIAL MALIST2) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL MALIST1) S)
(CALL 2Q (E XCONS) S)
TAG7 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MATCH1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 3Q (SPECIAL MALISTV2) S)
(MOVE 2Q -3Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E MATCH2) S)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 1Q -3Q P)
(CALL 3Q (E MATCH2) S)
(JRST 0Q TAG4)
TAG6 (HLRZ@ 1Q 2Q)
(MOVEM 1Q -1Q P)
(CAIE 1Q (QUOTE !') S)
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG4)
(MOVEI 2Q (QUOTE (!< !?)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG7)
(HRRZ@ 2Q (SPECIAL MALISTV2) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E ACTORSUBST) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E MATCH2) S)
(JRST 0Q TAG4)
TAG7 (HLRZ@ 1Q -3Q P)
(MOVEM 1Q 0Q P)
(CAIE 1Q (QUOTE !>) S)
(JRST 0Q TAG10)
(MOVE 4Q (SPECIAL MALISTV2) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 4Q (E !>) S)
(JRST 0Q TAG4)
TAG10 (CAIE 1Q (QUOTE !?) S)
(JRST 0Q TAG11)
(MOVEI 5Q (QUOTE T) S)
(MOVE 4Q (SPECIAL MALISTV2) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 5Q (E !?) S)
(JRST 0Q TAG4)
TAG11 (CAIE 1Q (QUOTE !') S)
(JRST 0Q TAG12)
(MOVE 4Q (SPECIAL MALISTV1) S)
(MOVE 3Q -2Q P)
(HRRZ@ 2Q -3Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E MBINDR) S)
(JRST 0Q TAG4)
TAG12 (CAIE 1Q (QUOTE !<) S)
(JRST 0Q TAG13)
(MOVE 4Q (SPECIAL MALISTV2) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E !<) S)
(JRST 0Q TAG4)
TAG13 (CAIE 1Q (QUOTE !/,) S)
(JRST 0Q TAG14)
(MOVE 4Q (SPECIAL MALISTV2) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 4Q (E COMMA) S)
(JRST 0Q TAG4)
TAG14 (CAIE 1Q (QUOTE !;) S)
(JRST 0Q TAG15)
(MOVEI 5Q (QUOTE T) S)
(MOVE 4Q (SPECIAL MALISTV2) S)
(MOVE 3Q (SPECIAL MALISTV1) S)
(MOVE 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 5Q (E !;) S)
(JRST 0Q TAG4)
TAG15 (MOVE 1Q -1Q P)
(CAIE 1Q (QUOTE !>) S)
(JRST 0Q TAG16)
(MOVEI 5Q (QUOTE NIL))
(MOVE 4Q (SPECIAL MALISTV1) S)
(MOVE 3Q (SPECIAL MALISTV2) S)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -2Q P)
(CALL 5Q (E !?) S)
(JRST 0Q TAG4)
TAG16 (CAIE 1Q (QUOTE !;) S)
(JRST 0Q TAG17)
(MOVEI 5Q (QUOTE NIL))
(MOVE 4Q (SPECIAL MALISTV1) S)
(MOVE 3Q (SPECIAL MALISTV2) S)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -2Q P)
(CALL 5Q (E !;) S)
(JRST 0Q TAG4)
TAG17 (CAIE 1Q (QUOTE !/,) S)
(JRST 0Q TAG20)
(MOVE 4Q (SPECIAL MALISTV1) S)
(MOVE 3Q (SPECIAL MALISTV2) S)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -2Q P)
(CALL 4Q (E COMMA) S)
(JRST 0Q TAG4)
TAG20 (HLRZ@ 2Q -2Q P)
(HLRZ@ 1Q -3Q P)
(CALL 2Q (E MATCH1) S)
(JUMPE 1Q TAG21)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 1Q -3Q P)
(CALL 2Q (E MATCH1) S)
TAG21
TAG4 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP COMMA SUBR)
(HLRZ@ 5Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P 5Q)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 3Q)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL MALIST) S)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E *EVAL) S)
(PUSHJ P SPECSTR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VAL) S)
(MOVE 3Q -1Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E MATCH2) S)
(JUMPE 1Q TAG4)
(MOVE 3Q -2Q P)
(MOVE 2Q (SPECIAL VAL) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E MBINDV) S)
TAG4 (PUSHJ P SPECSTR)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 3Q)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL MALIST) S)
(MOVE 1Q 5Q)
(CALL 1Q (E !/,1) S)
(PUSHJ P SPECSTR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VAL) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG6)
(PUSH P (C 0Q 0Q TAG7 0Q))
(PUSH P -1Q P)
(PUSH P -5Q P)
(HRRZ@ 1Q -5Q P)
(PUSH P 1Q)
(PUSH P -5Q P)
(MOVE 1Q -7Q P)
(CAME 1Q (SPECIAL MALISTV1) S)
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVNI 6Q 6Q)
(JCALL 16Q (E TRYASSIGN) S)
TAG7 (JRST 0Q TAG5)
TAG6 (MOVE 3Q -1Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -3Q P)
(CALL 3Q (E MATCH2) S)
TAG5 (PUSHJ P SPECSTR)
TAG1 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP MATCH2 SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL EXP) S)
(PUSH P 1Q)
(PUSH P 3Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -1Q P)
(CALL 2Q (E EQUAL) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE (!? !> !')) S)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG4)
(MOVE 4Q -1Q P)
(MOVE 3Q (SPECIAL EXP) S)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 4Q (E MBINDR) S)
(JRST 0Q TAG3)
TAG4 (MOVE 1Q 0Q P)
(CAIE 1Q (QUOTE !/,) S)
(JRST 0Q TAG5)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPE 2Q TAG7)
(HRRZ@ 1Q -3Q P)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL MALIST) S)
(HLRZ@ 1Q 2Q)
(CALL 1Q (E *EVAL) S)
(PUSHJ P SPECSTR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VAL) S)
(MOVE 2Q (SPECIAL EXP) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG11)
(MOVE 3Q -3Q P)
(MOVE 2Q (SPECIAL EXP) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E MBINDV) S)
TAG11 (PUSHJ P SPECSTR)
(JRST 0Q TAG6)
TAG7 (HRRZ@ 1Q -3Q P)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL MALIST) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E !/,1) S)
(PUSHJ P SPECSTR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VAL) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG13)
(HRRZ@ 3Q -3Q P)
(MOVE 2Q (SPECIAL EXP) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E MSET) S)
(JRST 0Q TAG12)
TAG13 (MOVE 2Q (SPECIAL EXP) S)
(CALL 2Q (E EQUAL) S)
TAG12 (PUSHJ P SPECSTR)
TAG6 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q TAG3)
TAG5 (CAIE 1Q (QUOTE !;) S)
(JRST 0Q TAG14)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL VALV) S)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -3Q P)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 2Q -3Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q (SPECIAL VALV) S)
(JUMPE 1Q TAG21)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL VALV) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG25)
(HRRZ@ 3Q -3Q P)
(MOVE 2Q (SPECIAL EXP) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E MSET) S)
(JUMPE 1Q TAG23)
(JRST 0Q TAG24)
TAG25 (MOVE 2Q (SPECIAL EXP) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG23)
TAG24 (HRRZ@ 2Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
(JRST 0Q TAG22)
TAG23 (MOVEI 1Q (QUOTE NIL))
TAG22 (JRST 0Q TAG20)
TAG21 (MOVE 1Q -1Q P)
(CALL 1Q (E CHECKVAL) S)
(JUMPE 1Q TAG26)
(MOVE 2Q (SPECIAL EXP) S)
(MOVE 1Q (SPECIAL VALV) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG30)
(HRRZ@ 2Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
TAG30 (JRST 0Q TAG20)
TAG26 (MOVE 4Q -3Q P)
(MOVE 3Q (SPECIAL EXP) S)
(MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 4Q (E MBINDR) S)
TAG20 (PUSHJ P SPECSTR)
(SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q TAG3)
TAG14 (CAIE 1Q (QUOTE !<) S)
(JRST 0Q TAG31)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG3)
TAG31 (MOVE 1Q (SPECIAL EXP) S)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG32)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG3)
TAG32 (MOVE 3Q -1Q P)
(HLRZ@ 2Q (SPECIAL EXP) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E MATCH2) S)
(JUMPE 1Q TAG33)
(MOVE 3Q -1Q P)
(HRRZ@ 2Q (SPECIAL EXP) S)
(HRRZ@ 1Q -2Q P)
(CALL 3Q (E MATCH2) S)
TAG33
TAG3 (SUB P (C 1Q 0Q 1Q 0Q))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP !? SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(MOVEM 2Q -1Q P)
(MOVE 2Q 4Q)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P 5Q)
(CALL 2Q (E FINDVARS) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JUMPN 1Q TAG5)
(MOVE 1Q (SPECIAL VARS) S)
(CALL 1Q (E HASMUSTASSIGNS) S)
(JUMPN 1Q TAG4)
TAG5 (MOVE 1Q (SPECIAL VARS) S)
(CALL 1Q (E HASVARS) S)
(JUMPE 1Q TAG7)
(MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE *UNASSIGNED) S)
(MOVE 1Q -3Q P)
(CALL 3Q (E MBINDV) S)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q -3Q P)
(JUMPE 1Q TAG11)
(TDZA 1Q 1Q)
TAG11 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG10)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q -5Q P)
(CALL 2Q (E VARSUBST) S)
(MOVE 4Q -2Q P)
(MOVE 3Q 1Q)
(MOVE 2Q -4Q P)
(MOVE 1Q -3Q P)
(CALL 4Q (E MBINDR) S)
TAG10
TAG6 (JRST 0Q TAG3)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG3 (JRST 0Q TAG1)
TAG2 (MOVE 4Q -2Q P)
(MOVE 3Q -5Q P)
(MOVE 2Q -4Q P)
(MOVE 1Q -3Q P)
(CALL 4Q (E MBINDR) S)
TAG1 (SUB P (C 6Q 0Q 6Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP !? CP-MATCH CPRINT)
(LAP !> SUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(MOVEM 2Q -1Q P)
(MOVE 2Q 4Q)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(PUSH P 3Q)
(PUSH P 4Q)
(CALL 2Q (E FINDVARS) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG2)
(CALL 1Q (E HASVARS) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG3)
TAG4 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG7)
(TDZA 1Q 1Q)
TAG7 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG6)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E VARSUBST) S)
(MOVE 4Q -1Q P)
(MOVE 3Q 1Q)
(MOVE 2Q -3Q P)
(MOVE 1Q -2Q P)
(CALL 4Q (E MBINDR) S)
TAG6
TAG3 (JRST 0Q TAG1)
TAG2 (MOVE 4Q -1Q P)
(MOVE 3Q -4Q P)
(MOVE 2Q -3Q P)
(MOVE 1Q -2Q P)
(CALL 4Q (E MBINDR) S)
TAG1 (SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP !> CP-MATCH CPRINT)
(LAP TRYASSIGN LSUBR)
(JSP 3Q *LCALL)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL VARS) S)
(0Q 0Q (SPECIAL MALIST) S)
(MOVE 1Q -1Q P)
(HRRZ 1Q 2Q 1Q)
(MOVE 2Q -1Q P)
(HRRZ 2Q 4Q 2Q)
(CALL 2Q (E FINDVARS) S)
(MOVEM 1Q (SPECIAL VARS) S)
(MOVE 1Q -1Q P)
(HRRZ 1Q 1Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(HRRZ 1Q 2Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -3Q P)
(HRRZ 1Q 3Q 1Q)
(MOVEM 1Q (SPECIAL MALIST) S)
(MOVE 1Q -3Q P)
(HRRZ 1Q 4Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(HRRZ 1Q 5Q 1Q)
(PUSH P 1Q)
(MOVE 1Q -5Q P)
(HRRZ 1Q 6Q 1Q)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG5)
(MOVE 1Q -1Q P)
(JUMPN 1Q TAG10)
(MOVE 1Q (SPECIAL VARS) S)
(CALL 1Q (E HASMUSTASSIGNS) S)
(JUMPN 1Q TAG7)
TAG10 (MOVE 1Q (SPECIAL VARS) S)
(CALL 1Q (E HASVARS) S)
(JUMPN 1Q TAG11)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL VAL) S)
(MOVE 3Q (SPECIAL MALIST) S)
(MOVE 2Q (SPECIAL VAL) S)
(MOVE 1Q -4Q P)
(CALL 3Q (E MSET) S)
(MOVE 2Q (SPECIAL MALIST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
(MOVEI 1Q (QUOTE NIL))
(PUSHJ P SPECSTR)
(HRRZ@ 2Q -2Q P)
(PUSH P 1Q)
(MOVE 1Q -4Q P)
(CALL 2Q (E VARSUBST) S)
(CALLF@ 1Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG11
TAG7 (JRST 0Q TAG4)
TAG5 (MOVE 3Q (SPECIAL MALIST) S)
(MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 3Q (E MSET) S)
(MOVE 2Q (SPECIAL MALIST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 5Q 0Q 5Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP !< SUBR)
(PUSH P 2Q)
(MOVE 2Q 4Q)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(PUSH P 3Q)
(PUSH P 4Q)
(CALL 2Q (E FINDVARS) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VARS) S)
(JUMPE 1Q TAG2)
(CALL 1Q (E HASVARS) S)
(JUMPE 1Q TAG4)
(MOVE 1Q -2Q P)
(JUMPE 1Q TAG6)
(TDZA 1Q 1Q)
TAG6 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG5)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E VARSUBST) S)
(MOVE 3Q -1Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E MBIND) S)
TAG5
TAG4
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP !< CP-MATCH CPRINT)
(LAP !; SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL VALV) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P 5Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -5Q P)
(PUSH P 1Q)
(HRRZ@ 2Q 3Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q (SPECIAL VALV) S)
(JUMPE 1Q TAG5)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL VALV) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG7)
(PUSH P (C 0Q 0Q TAG10 0Q))
(PUSH P -2Q P)
(PUSH P -7Q P)
(HRRZ@ 1Q 3Q)
(PUSH P 1Q)
(PUSH P 4Q)
(PUSH P 5Q)
(PUSH P -6Q P)
(MOVNI 6Q 6Q)
(JCALL 16Q (E TRYASSIGN) S)
TAG10 (JRST 0Q TAG6)
TAG7 (MOVE 3Q 4Q)
(MOVE 2Q 1Q)
(MOVE 1Q -5Q P)
(CALL 3Q (E MATCH2) S)
(JUMPE 1Q TAG11)
(HRRZ@ 2Q -4Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
TAG11
TAG6 (JRST 0Q TAG4)
TAG5 (MOVE 1Q -1Q P)
(CALL 1Q (E CHECKVAL) S)
(JUMPE 1Q TAG12)
(MOVE 3Q -3Q P)
(MOVE 2Q (SPECIAL VALV) S)
(MOVE 1Q -5Q P)
(CALL 3Q (E MATCH2) S)
(JUMPE 1Q TAG14)
(HRRZ@ 2Q -4Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E SATISFY) S)
TAG14 (JRST 0Q TAG4)
TAG12 (MOVE 1Q -2Q P)
(JUMPE 1Q TAG15)
(MOVE 4Q -3Q P)
(MOVE 3Q -4Q P)
(MOVE 2Q -5Q P)
(MOVE 1Q -6Q P)
(CALL 4Q (E !>) S)
(JRST 0Q TAG4)
TAG15 (MOVEI 5Q (QUOTE NIL))
(MOVE 4Q -3Q P)
(MOVE 3Q -4Q P)
(MOVE 2Q -5Q P)
(MOVE 1Q -6Q P)
(CALL 5Q (E !?) S)
TAG4 (SUB P (C 7Q 0Q 7Q 0Q))
(JRST 0Q SPECSTR)
NIL
(DEFPROP !; CP-MATCH CPRINT)
(LAP CHECKVAL SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG3 0Q))
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG3 (MOVEM 1Q (SPECIAL VALV) S)
(JUMPE 1Q TAG2)
(CALL 1Q (E CADR) S)
(MOVEM 1Q (SPECIAL VALV) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG4)
(TDZA 1Q 1Q)
TAG4 (MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E BOUNDP) S)
(MOVEM 1Q (SPECIAL VALV) S)
(JUMPE 1Q TAG5)
(HRRZ@ 1Q 1Q)
(MOVEM 1Q (SPECIAL VALV) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG6)
(TDZA 1Q 1Q)
TAG6 (MOVEI 1Q (QUOTE T) S)
TAG5
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FINDVARS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(CAIE 1Q (QUOTE !/,) S)
(JRST 0Q TAG4)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(HRRZ@ 2Q -2Q P)
(HRRZ@ 2Q 2Q)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPE 2Q TAG7)
(MOVE 1Q (SPECIAL NOBIND) S)
(JUMPE 1Q TAG6)
TAG7 (HRRZ@ 3Q -3Q P)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE !/,) S)
(CALL 3Q (E GETSPEC) S)
(JRST 0Q TAG5)
TAG6 (HRRZ@ 1Q -3Q P)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL MALIST) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(PUSHJ P SPECSTR)
(MOVE 3Q -3Q P)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E MBINDV) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
TAG10
TAG5 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q TAG3)
TAG4 (CAIE 1Q (QUOTE !;) S)
(JRST 0Q TAG11)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(HRRZ@ 2Q 2Q)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(CALL 1Q (E ASSIGNED?) S)
(JUMPE 1Q TAG13)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(JRST 0Q TAG12)
TAG13 (MOVE 1Q (SPECIAL NOBIND) S)
(JUMPN 1Q TAG15)
(MOVE 2Q (SPECIAL MALIST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ASSOC) S)
(JUMPE 1Q TAG14)
TAG15 (MOVE 3Q (SPECIAL MALIST) S)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE !;) S)
(CALL 3Q (E GETSPEC) S)
(JRST 0Q TAG12)
TAG14 (MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE *UNASSIGNED) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E MBINDV) S)
(JUMPE 1Q TAG16)
(MOVEI 1Q (QUOTE !>) S)
(CALL 1Q (E NCONS) S)
TAG16
TAG12 (PUSHJ P SPECSTR)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG3)
TAG11 (CALL 1Q (E ACTOR) S)
(JUMPE 1Q TAG17)
(MOVE 1Q (SPECIAL NOBIND) S)
(JUMPE 1Q TAG21)
(HRRZ@ 3Q -1Q P)
(HRRZ@ 2Q -2Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E GETSPEC) S)
(JRST 0Q TAG20)
TAG21 (MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE *UNASSIGNED) S)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 3Q (E MBINDV) S)
(JUMPE 1Q TAG22)
(MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
TAG22
TAG20 (JRST 0Q TAG3)
TAG17 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E FINDVARS) S)
(MOVE 2Q -1Q P)
(PUSH P 1Q)
(HRRZ@ 1Q -3Q P)
(CALL 2Q (E FINDVARS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E *NCONC) S)
TAG3 (SUB P (C 1Q 0Q 1Q 0Q))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP HASMUSTASSIGNS SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VARS) S)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVEI 2Q (QUOTE (!> !')) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E MEMQ) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG10 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP HASVARS SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VARS) S)
(PUSH P 1Q)
TAG1 (MOVE 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q 0Q P)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG10 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP VARSUBST SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E ACTOR) S)
(JUMPE 1Q TAG3)
(MOVE 2Q (SPECIAL MALIST) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E ACTORSUBST) S)
(JRST 0Q TAG1)
TAG3 (MOVE 2Q (SPECIAL MALIST) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E VARSUBST) S)
(MOVE 2Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(CALL 2Q (E VARSUBST) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ACTOR SUBR)
(MOVEI 2Q (QUOTE (!> !? !' !< !/, !;)) S)
(JCALL 2Q (E MEMQ) S)
NIL
(LAP ACTORSUBST SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL MALIST) S)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(PUSH P 1Q)
(MOVE 1Q 2Q)
(CALL 1Q (E !/,1) S)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL VAL) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(PUSHJ P SPECSTR)
(JRST 0Q SPECSTR)
NIL
(LAP GETSPEC SUBR)
(JSP 6Q SPECBIND)
(0Q 3Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 1Q 2Q)
(CALL 1Q (E !/,1) S)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG2)
(MOVE 1Q (SPECIAL NOBIND) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE (UNASSIGNED VARIABLE IN INSTANCE)) S)
(CALL 17Q (E CERR) S)
(JRST 0Q TAG3)
TAG4 (MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
TAG3 (JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MBIND SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL VAL) S)
(PUSH P 1Q)
(PUSH P 3Q)
(MOVE 1Q (SPECIAL NOBIND) S)
(JUMPE 1Q TAG2)
(HRRZ@ 3Q 3Q)
(MOVE 1Q -1Q P)
(CALL 3Q (E MSET) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 2Q)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q 3Q)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q 3Q)
(MOVE 1Q 3Q)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MBINDV SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL VAL) S)
(PUSH P 1Q)
(PUSH P 3Q)
(JUMPE 1Q TAG2)
(TDZA 1Q 1Q)
TAG2 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG1)
(MOVE 1Q (SPECIAL NOBIND) S)
(JUMPE 1Q TAG3)
(HRRZ@ 3Q 0Q P)
(MOVE 2Q (SPECIAL VAL) S)
(MOVE 1Q -1Q P)
(CALL 3Q (E MSET) S)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q (SPECIAL VAL) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 2Q 0Q P)
(CALL 2Q (E CONS) S)
(HRRM@ 1Q 0Q P)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MBINDR SUBR)
(JSP 6Q SPECBIND)
(0Q 3Q (SPECIAL VAL) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 4Q)
(JUMPE 1Q TAG2)
(TDZA 1Q 1Q)
TAG2 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG1)
(MOVE 3Q 0Q P)
(MOVE 2Q (SPECIAL VAL) S)
(MOVE 1Q -2Q P)
(CALL 3Q (E MBIND) S)
(JUMPE 1Q TAG4)
(HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E SATISFY) S)
TAG4
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP !/, FSUBR)
(HLRZ@ 1Q 1Q)
(JCALL 1Q (E !/,1) S)
NIL
(DEFPROP !/, CP-MATCH CPRINT)
(LAP !/,1 SUBR)
(MOVE 2Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(CALL 2Q (E ASSOC) S)
(PUSH P 1Q)
(JUMPE 1Q TAG2)
(CALL 1Q (E CADR) S)
(JRST 0Q TAG1)
TAG2 (PUSH P (C 0Q 0Q TAG3 0Q))
(PUSH P -2Q P)
(MOVNI 6Q 1Q)
(JCALL 16Q (E RVALUE) S)
TAG3
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SATISFY SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL MALIST) S)
(PUSH P 1Q)
(JUMPE 1Q TAG2)
(TDZA 1Q 1Q)
TAG2 (MOVEI 1Q (QUOTE T) S)
(JUMPN 1Q TAG1)
(MOVE 1Q 0Q P)
(CALL 17Q (E AND) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP MSET SUBR)
(JSP 6Q SPECBIND)
(0Q 2Q (SPECIAL VAL) S)
(MOVE 2Q 3Q)
(CALL 2Q (E ASSOC) S)
(PUSH P 1Q)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 1Q)
(MOVE 2Q (SPECIAL VAL) S)
(HRLM@ 2Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE (VARIABLE (QUOTE VAR) UNBOUND IN MATCH ALIST)) S)
(CALL 17Q (E CERR) S)
TAG1 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ASSIGNED? SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL VAL) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG6 0Q))
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E VLOC) S)
TAG6 (MOVEM 1Q (SPECIAL VAL) S)
(JUMPE 1Q TAG5)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG7)
(TDZA 1Q 1Q)
TAG7 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG4)
TAG5 (MOVE 1Q 0Q P)
(CALL 1Q (E BOUNDP) S)
(MOVEM 1Q (SPECIAL VAL) S)
(JUMPE 1Q TAG10)
(HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(CAIE 1Q (QUOTE *UNASSIGNED) S)
(JRST 0Q TAG11)
(TDZA 1Q 1Q)
TAG11 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
TAG10
TAG4 (SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP CNVINT SUBR)
(CLEARM 1Q (SPECIAL RUNF) S)
(JCALL 0Q (E START) S)
NIL
(PROGN (DEFPROP CNVRINIT
(LAMBDA NIL
(MODCHR 47Q (MODCHR 100Q NIL))
(DRM /@ ATMAC)
(DRM : COLMAC)
(DRM ! EXMAC)
(DRM /, COMMAC)
(DRM ; EXMAC)
(DEFLIST (@"'" (! "!") (/, ",") (: ":") (!/" PP-!/") (/@ PP-!/") !' !/, !; !< !> !? !@)
PP-MATCH
PRINTMACRO)
T)
EXPR)
(DEFPROP CNVRUNINIT
(LAMBDA NIL
(MODCHR 100Q (MODCHR 47Q NIL))
(DEFPROP QUOTE "@" PRINTMACRO)
(REMLIST @(! /, : !/" /@ !' !/, !; !< !> !? !@) @PRINTMACRO)
T)
EXPR)
(DEFPROP CNVRCLEANUP
(LAMBDA NIL
(EXCISE)
(REMOB CNVRINIT CNVRUNINIT CNVRCLEANUP)
(GC)
(DATA-INIT)
(INITFN @(LAMBDA NIL
(MSG "CONNIVER")
(INITFN @CNVINT)
(ERR NIL)))
T)
EXPR))
(LAP PP-!/" SUBR)
(JCALL 17Q (E CP-!/") S)
NIL
(LAP PP-MATCH SUBR)
(JCALL 17Q (E CP-MATCH) S)
NIL
(LAP EDITC FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE =) S)
(CALL 1Q (E PRINT) S)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E PRIN1) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -1Q P)
TAG5 (MOVEI 2Q (QUOTE CEXPR) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG7)
(HLRZ@ 3Q -1Q P)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 3Q (E EDITE) S)
(HLRZ@ 1Q -1Q P)
(MOVEM 1Q (SPECIAL LASTWORD) S)
(JRST 0Q TAG1)
TAG7 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E PRINT) S)
(MOVEI 1Q (QUOTE "not editable.") S)
(CALL 1Q (E PRINC) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E ERR) S)
(MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP EDITD FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(MOVEI 1Q (QUOTE =) S)
(CALL 1Q (E PRINT) S)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E PRIN1) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -1Q P)
TAG5 (MOVEI 2Q (QUOTE DATUM) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG7)
(HLRZ@ 3Q -1Q P)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 3Q (E EDITE) S)
(HLRZ@ 1Q -1Q P)
(MOVEM 1Q (SPECIAL LASTWORD) S)
(JRST 0Q TAG1)
TAG7 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E PRINT) S)
(MOVEI 1Q (QUOTE "not editable.") S)
(CALL 1Q (E PRINC) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E ERR) S)
(MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP DATA FSUBR)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E READ) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG3)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(PUSH P (C 0Q 0Q TAG7 0Q))
(PUSH P -1Q P)
(MOVNI 6Q 1Q)
(JCALL 16Q (E CREMOVE) S)
TAG7 (PUSH P (C 0Q 0Q TAG10 0Q))
(PUSH P -1Q P)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ADD) S)
TAG10 (JRST 0Q TAG5)
TAG6 (HLRZ@ 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(PUSH P (C 0Q 0Q TAG12 0Q))
(MOVE 1Q -1Q P)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ADD) S)
TAG12 (JRST 0Q TAG5)
TAG11 (PUSH P (C 0Q 0Q TAG14 0Q))
(HLRZ@ 1Q -1Q P)
(PUSH P 1Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ADD) S)
TAG14
TAG5 (JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL